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IMOVING HEAD DISK CDWTROL PIAGNOSTIC 
I****** AUTO-RUM AUTO LOAD MnoiFIEP 3/7/72 



1, ABSTRACT 

THIS PROGRAM IS A HARDWARE DIAGNOSTIC FOR THE 
A-^Ab wnviNG HEAD DISK CuNTRaLUEK AND ADAPTER 
LOGIC, IT IS ASSUMFD THAT THE DISK TER^^INAL 
IS FUNCTIONING PROPFPLY, 

?. RFQUIREMENTS 

1. NOVA FAMILY CENTRAL PROCESSOR 

n Lj V k) V hj 1 I kA r^ e i i^ rt c k r\ 1 i.\r\ ir W' f kj r* kj ^ n k< 

3, 4f"4fi MOVING HEAD OISK CONTROL 

4, 4(?t47,4048,4«49 OR 4?b7 
DISK ADAPTER 

5. 1 TO 4 niSK TERMINALS 

6. TELETYPE ANO CONTROL 

3. OPERATING PROCEDURE 

1, LOAH USING THE RINARY LOAHEP 

2, STARTING ADDRESSES 

SA?- TO IDENTIFY DISK TYPE 

PROGRAM THEN PROCEEDS TO 4V30, 
SA4- SET DISK CONTROL ADDRESS TC 33 
SA5- SFT DISK CONTROL ADDRESS TO 73 
SA4I/IPI- START DIAGNOSTIC 

3, THE PPDGRAM PPINTS "PASS" FOLLOWING EACH 
CnHPLETF PASS THROUGH THE TESTS, 

4, SWITCH SETTINGS 

Swi^n FROM ERROR, 60 TO NEXT TEST, 

Swla INHIBIT TELFTYPE PRINTING, 

Sw?> PRINT FAILURE RATE, 

Sis3a RECALIBRATE DURING SCOPE LOOP 

SW41 1 SEC DFLAY IN SCOPE LOOP 

Sw?S-6i UNIT U FOR PECAL DURING SCOPE. LOOP 

4, ERRORS 

WHEN AN ERROR TS DFTFCTfD THE PROGRAM HALTS, 
fAC3) POINTS TO THE LOCATION FOLLOWING THE 
ERROR HALT CALL "EHALT". CONSULT THE COMMENTS 
AREA OF THE DIAGNOSTIC PROGRAM LISTING FOR 
CLUES AND POSSTIiLE CAUSES OF THE FAILURE, 
PUSHING CONTINUE WILL CAUSE THE PROGRAM TO 
PRINT THE CAC31 AND ENTER A SCOPE LOOP. 
SET SW2 TO CAUSE THE ERROR RATE {0-10t)X) TO BE 
PRINTED. SET SW51 TO EXIT FROM THE SCOPE LOOP 
ANO PROCEED TO THE NEXT TEST. 
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SQMt SCOPt inOPS WILL REHUIWE A RECALIB«ATE 
m IMITIALTZF THF DISK ORIVE FOLLOWING A FAILURE. 
SET SWITCH i TO INTKODIICE THE RECALIBRATE, THE 
IJMT Tn Bf RECALIBRATED wyST BE SET INTO SWITCHES 

5 ANn fl, 

TEST? THAT PERFORM A RECALIBRATE HAVE A 2 SEC. 
DELAY RUILT INTO THE SCOPE LOOP AS PROTECTION 
FPR THE DISK DRIVE ELECTRONICS, SET SWITCH 4 
TO I^JTRODllCE AN ADDITIONAL I SECOND DELAY DURING 
THF SCOPE LOOP. 

iKi GENERAL EACH SUCCESSIVE TEST ASSUMES ALL 
PREVIOUS TESTS WORK, BYPASSINR ERRORS 
CAN RESULT IN CONFUSING SITUATIONS 
TK; THE SETUP nP MORE COMPLEX TESTS, 

DISK PACKS 

ONLY USE DISK PACKS FORMATTED RY THE DGC DISK 
PATK f-ORMATTER PROGPA^i, THE DIAGNOSTIC PROGRAM 
WILL WRITE OVER MOST OF THE DISK SURFACE, 
THE FORMAT MODE IS NOT CHECKED, 
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«C10C?P!l 




.LOC I 




TIWVICI 


CI {15776 




IRET 


IINTERRUPT RETURN! 


gPiPiPI? 


PIW6251 




INIT 


UNITIALIZE 


?iPI0PI3 


piP!2PtP!« 




JMP #TS 


IGO TO 400 


flPI('lt^4 


c^P)2244 




JMP #1833 


;SET 4DDR TO 33 


ClPlilPiS 


yiPi2?4f5 




JMP »IS73 


ISET ADDR TO 73 


i^c^^pie 


«Pi04l2 

ptfflp)(^45 


TSI 


Ai 

.LDC 45 




P'PIP^S 


£?»Wf!l^4« 




EGGS 




ii1PI046 


wPiMoiiaPi 


eggs: 





»HEN FLAG 


{^0047 


(?!l?!0P!Rti| 







IDCVICE CODE THIS RUN 


n fx r^ K i M 


."> n ri rt r» A 




m 


*&<«»■» 1 I M ^ ^ 


sr< VI yr ^ vj 


Yi VI vf v} yf ^ 




I'? 


FivuT uStu 


0P>051 


«Pipiw^CT 







;« OF PASS THIS RUN 


?! PI 5152 


t^Wi3(^SrlW 







TRETURN AOnsESS 


?PIP"53 


(1C»PIPI|?PI 


.TU: 







i;it^(^54 


04(1 PI (^^ 




40000 




?ICIP)55 


IP! PI 1^ PIP) 




100000 




iif^^se 


140P!«PI 




140000 




S10IKS7 


PI0PIPI01 


UNTBIT: 


1 




t5Pi»fii?i 


0p90Pli;92 


KfJUl 


2 




«l?)06l 


000PI04 


KBt3: 


4 




ilWP!fi2 


WPIPIPIIPI 


KB12J 


10 




HWWfiS 


i>t0Pi02Pi 


KBllt 


20 




'/Pi7lfi4 


tlPi0PI4[^ 


KB10I 


4^ 




/wi;ifi5 


HPIP!l(/lP1 


KB9J 


100 




iJiplf^fifi 


0Plp!2PlPt 


KBS: 


200 




PlW?!fi7 


P!0PI4PI()| 


K87{ 


400 




HPI{i7ti) 


MPI10P1PI 


KB6: 


1000 




7l|^(?»71 


0PI20t^'^ 


KB5: 


20PI0 




MP!C<72 


MPI4W00 


KB4: 


4000 




PIPIPI73 


PllPIPIii'lW 


KB3S 


10000 




«PI(il74 


i/)2P?pi;^Pi 


KB2t 


20PI00 






PiPIKPlS4 


KBl»,Tl)*l 




0P)Pt75 


177775 


ZB14J 


177775 




«l?l«76 


177773 


2B13I 


177773 




l?iP)fi77 


177767 


7B12I 


177767 




C^C^lWPl 


177757 


ZBUI 


1777S7 




tlPllPll 


177737 


ZB10J 


177737 




C»P)1PI2 


177677 


?B9: 


177677 




i^7li?ii 


177S77 


7BBI 


177577 




KPIIP)4 


177377 


7871 


177377 




(^OIIOIS 


176777 


7861 


176777 




PiC^lKfi 


175777 


ZB5: 


175777 




PIC^IP'7 


173777 


ZB4I 


173777 




l?)C^llCi 


167777 


ZB3I 


167777 




PsRlll 


157777 


ZB2I 


157777 




t«pin2 


137777 


7Blt 


137777 




t^f)ll3 


006231 


TRCLJ 


RtCL^ 




PIPI114 


006232 




PECLl 




t^PiUS 


006233 




RECL2 




3Ptll6 


6^06234 




RErL3 





A 7i^(^A .MAIN 



l?iPill7 


HPiPiPlt^S 


C3: 


3 


i/fa\2o\ 


(^PI[1^H7 


C7I 


7 


P!W1?1 


(^0IHPI17 


ri7: 


17 


7IPH22 


W«(5PI37 


C37: 


37 


<A(^l9.i 


HMt^Pl77 


r77: 


77 


7iPi\.?A 


PIWtr«177 


ni77i 


177 


6»7tlP5 


«Pip)377 


C377J 


377 


i^Wl?6 


HPIH777 


r777: 


777 


HPI127 


PiP"1777 


C1777: 


1777 


i?tMlsyi 


tAP!3777 


C3777: 


3777 


c^wi?l 


PIW7777 


C7777t 


7777 


0PI132 


P117777 


rpii7: 


17777 


(^Pll^a 


^37777 


r037S 


37777 


0W134 


iTi 1 4 2 1 


Bin: 


PHPI421 


^)0»13b 


!'i?H'42 


RIT2I 


P'21i<542 


fiptiae 


l^421(?i4 


RIT4I 


0421PI4 


{iiPil37 


lP»fl?lP» 


bits; 


Ui 4211/1 


PIM14M 


t^5252S 


C2S25: 


W62525 


5191141 


l?b?5? 


C525?: 


12525? 


HP) 142 


123456 


random; 


12345A 


11PI143 


123456 


REURANt 


123456 


(1(^144 


H^S^lP^MW 


temp: 


PI 


ifit^lAt 


0(1(^P(?)(3t 


time: 


P) 


/0I146 


WPii;ipipiw 


TiMFi: 


PI 


i;il?ll47 


m62PI(^m 


kphb: 


OOP Pi»Pl 


(?iPilf57i 


Hl^l^Plplffl 


dtype: 


ffi 


i?iC1l51 


(/ 0) !/l pi i,j 1 


MOSKS: 


MfiPipipIl 


(/"PIlS? 


M CI CI C/'i PI 


TESTUJ 


PI 


f/PilBi 


(?:Oii?i0ii?c^ 


dnum: 


PI 


i?ii?»154 


C*Wi;iiPl33 


cdsk: 


33 


0!«l!5b 


ptpivipiepi 


Cyl: 


7 


l^C^lSP 


MPi;;iPitit» 


HEAD! 


« 


(?i(Pll«i7 


t^^Pidi^i^ 


sect: 


Pl 


7(7I16H 


C'I'IgSMP 


buff: 


PRRtND 


MC^lfil 


160P!37 


MSKl : 


Ift0pi37 


?!PI162 


CifitflPl33 


npio: 


PlfiPlt133 


l/^Pll«3 


1777WPI 


MSK2: 


1777W*i 


(AC11fi4 


VlWMBOlP 


ITRCnt: 


Vi 


fipilfiS 


v^Pi5613 


stall: 


.STL 



JtlsCAHT, l«23ll, I5a2314 
n5»IINlT V\, 14«1, 13b2, 12 = 3 
t Pl&l " UNIT *l 
» 14-15 s UNIT it 



A PieiPiS .MAIN 



(i^piiee 


l?iC9(9l?iP<4 


CAl 


4 


&10!lfi7 


stWWPiPiB 


C59 


5 


^Pli7!? 


(•^Mt^i/lfi 


C6I 


6 


tf«{^17l 


?lPil?lpill 


cm 


11 


(!1PI172 


dPlKPil? 


C12: 


12 


P> 01173 


PIPIMW15 


CISI 


15 


P1W174 


^Pi0Pilfi 


Clfil 


16 


0CI175 


MP)(?)P!3Pi 


C30! 


31^ 


«P!l7fi 


BPIRPI33 


C33I 


33 


l>fPil77 


&)PII>1P!3« 


C36J 


36 


v^Pi^c^^ 


(?!WPICI(6(?I 


CfiP): 


fip" 


viK^gPIl 


^PIC1P!63 


r63; 


fi3 


(^P12C12 


PiPIPiPl7Pi 


r7(ii: 


7M 


f5f^2CT3 


(^Pi«12P 


ri2p)i 


1201 


C.C«2i;44 


HPlC^137 


C137I 


137 


C^5)2P)5 


i;i«pil57 


ri«7i 


157 


piW2Pt6 


C»PIPI277 


r.277t 


277 


cpi2tfl7 


PIPIH312 


C312t 


31? 


pi-'Zia 


I'! £^ « 3 1 7 


C317! 


317 


(?»(«2n 


51PIH402 


C4PI2I 


4ti? 


Ctffl2l2 


C1C^042PI 


C4?w: 


421^ 


i*Ci213 


1 7 7 4 l^i PI 


ri774l 


1774518 


PW214 


1774(iiPI 


M4P)pi: 


-4l?lfe< 


i:^c»215 


i-'ii?)i4t^PI 


C14(?«0I| 


Uf^t^ 


9ti?1216 


&)P»3fi(/in 


f:36PiP): 


36Pll^( 


WP217 


J)2M4Pi[^ 


C2PI4HJ 


??i40C^ 


0Pt22(l 


P)74(?P1P' 


C74k: 


74P'kiPl 




flWPIl^Sfi 


t:i40K«. 


,TU + 3 


0Pt221 


l74ffPU^ 


t:i74K» 


1740P!0 




ViVid»7^ 


ciwaeiiK 


:86 



ttPi222 024PI47 REGINI 

P!Pi22.3 M2017fi 

PIPI224 IPI6414 

P'til2?5 PIPI2245 

(/iPl226 i.11712244 



LOA l,EGGS+l 
j_n A P!, C33 
SUR«> 0, IfSZR 
JMP #1873 
JMP HIS33 



,7 ffl 2 3 '/ 

i?!H232 

t'P23il 
i7P!235 

!/P»237 
i/iC!24t/i 
HCI241 
;/^W242 
u- "I }> 4 .^ 
ir; ^ 2 4 4 
/W245 
vi M 2 4 h 

i?W25i^ 
'/ P 2 •> 1 
i/W2fS2 

I?'C12S4 
(7,P'2SS 
f/iffl2Sfi 

i/M?»2?l 
t'l?i2iS2 
i>ipi2f>3 



i^ t" «> P 3 •> 
M « 5 f; 2 2 
O1W5704 
rit'b7Plfi 
t^(7i571Pi 
Hi7lf5711 
C^P*t7fi4 
j/ C'! 6 P" pi 
f^ PI 6 PI 2 7 
m?> 8 13 3 2 
mW6I33^ 

(^ pi hf ft R 
HH5fiS7 

PiP6453 
t5Plft3lPI 
P^C1J)44? 
f^ PI 5 fi 5 5 

MI7S72? 
t-^ 515217 
£/iMh27fi 
(7l?ft33fi 
f' (716311 

Pi(7'??54 

Mi7ib354 
C^0fti7ib7 



I. wait: 

T . S s F K J 

T.RCi: 
I,RC25 
T.RC3: 

I.IWT! 

t.adsk: 

ISET! 

T.SfeTp: 
I.STijp: 
T.fha: 
l.Lon: 

TS33: 
IS73S 
I.S! 

icrlf: 

TMESSl 
I, INI! 

tstb: 

T.EHi: 

I.POJ 
IRAN! 

igen: 
THFAn: 

IwRTt 
TCHKJ 

lonsi 

T.LD! 



.WAIT 
,SStK 

.RrtPi 

.KCLl 

.f^CL2 

.RrL3 

,IWT 

. ADSK 

.SFT 

,SFTP 

.SETUP 

.Lonp 
.S33 
.S7 3 

.SK 
CRLF 

.IMI 
ST« 

.F.H1 

, D k i/i 

RAM 

.KEm 

,RFAn 

.WRITt 

.r.HtCK 

.unsEK 
.LiiPP 



V'^h7A\ .DLISR SETUPsJSR *I.STl,IP 

t*P(h2«P ,DUSR SETPl«JSR •I.SETP 

nMf>249 ,Dl)SR EkALTsJSR •I.EHA 

/!5«ri?43 .DUSR LOnP«JSW PT.LCIO 

[^pir;)W33 .OnSR n5KP»33 

i>'P'6253 .DUSR EHLT'JSR JtI.EHl 

f/.Pih?63 .DUSR innPOaJSR ^i.tn 



«P'62&!'' 
l/ivifS247 
^1[^6227 
HClb23t^ 

u-cepsi 
&1P6232 
C^«6233 
(/'PI6234 
f I?! h 2 vi 5 
0Plb?36 

H C b 2 b 1 
MPI625P 
i/)(>'62f)7 
ni362bPI 
l^ei6261 
t^(?i6262 
{^Pt6254 



MESSAGFbJSR 
PCRLFsJSR # 
WAlTaJSR ffT 
SSEEKaJSR • 
RECL?I»JSR • 
RECLlsJSR » 
RECL2aJSB « 
RECL3«JSR » 
ITRwTtJSR • 
GADSKsJSR 9 
SEEKsJSR on 
TNTT«JRR *!T 
GENiDATsJSP 
READBJSR *I 
WRITE«JSR P 
CHFCK»JSR # 
DOSEKiJSR * 
nORWaJSR ^I 



• I MESS 
ICRLF 

.WAIT 

I.SSEK 

I.RCW 

l.RCl 

l.Pf:2 

I.RC3 

I.IWT 

I.aHSK 

.S 

.TNT 

*TGEN 

READ 

IWRT 

ICHK 

inos 
.no 



.EOT 
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HPI4PI1 
flPl4Pi2 

(?1PI4P!5 

0P)407 
tiPI4iVi 
Pi (?) 4 1 1 



PIPI6252 
(^24PI4r; 
12591 1?i4 
09I134K5 
M2P)150i 
lP)lt»PI5 
fiP!625J 

0l?IV!l4Pl3 

J26fi2« 
H4415C^ 



STARTJ 



tii't412 0PI6241 

^^Pi4i3 l?i637iai'i 

0PI414 «CI6242 

e'Pt4lS HPI6243 

P!l?l416 etPl6?41 

P1PI417 f".fi3S&IPI 

l2Pi42t1 0M624? 

P1PI421 M06243 

PH^422 PIPI6241 

I^PI423 M63533 

C^0^424 Hi?l6?4? 

WPI42S t1W6?43 

(^P!426 0P'6241 
/P'427 063733 
MW430 I^PI6242 
9>W431 (176243 



P)C1432 
tiPi433 
k? 5^434 
Pi««435 
viC»436 

fri0437 
^C>i44l^ 
(1PI441 
?.PI442 
P)PI443 



P1PI6241 

6 PI 4 (?) PI 
lPllP!t94 
M06242 
HPI6243 

fl(?»6241 
1^61433 

1 [^ I Plt'i / 
I?PI6242 
PP16243 



I^I?I451 (3R6241 

PI0452 IPI20MP1 

P!PI453 H62PI33 

00454 K65433 

00455 122434 

00456 006242 

00457 006243 



Alt 



A2S 



A3: 



A4: 



as: 



A6: 



00444 1^06241 A7: 

00445 062433 

00446 101004 

00447 00624? 
00450 006243 



A8: 



• UUi- 


<Hfllfl 


JSR #ISTB 


LDA 1 


,EGGS 


MOV 1 


»l»SZR 


JMP Al-2 


LDA 


»DTYPF 


Mnv 


»0,SNR 


INIT 




JMP Al 


SUBZR 


1»1 


STA I 


,DTVPE 


SETUP 




SKPDZ 





EHALT 




Lonp 




SETUP 




SK.PSZ 


a 


EhALT 




LOOP 




SETUP 




SKPBZ 


DSKP 


EHALT 




LOOP 




SETUP 




SKPDZ 


nSKP 


EHALT 




LOOP 




SETUP 




DIA 0, 





MOV 0, 


0,SZR 


FHALT 




LOOP 




SETUP 




niR 0, 


DSKP 


MOV 0, 


0,SZR 


EHALT 




LOOP 




SETUP 




nic 0, 


DSKP 


MOV 0, 


0,SZP 


FHALT 




LOOP 




SETUP 




ADC 0, 





DOR 0, 


DSKP 


DIB I, 


DSKP 


SUBZtt 


1,0, SZR 


EHALT 




LOOP 





IIF PARAMETERS NOT YET SPECIFIED 
IDO IT NOW, 



rCHECK SELO BUS LINE 
»SKIP IF LINE HIGH 
lOSKP HAS SELD GROUNDED, 



rCHECK SFLB BUS LINE 
icwTO rp <INE HIGH 
IDSKP HAS''SEL8 GROUNDED 



»CHECK DISK PACK BUSY 
ISKIP IF BUSY 
r"DP BUSY" STUCK ON 



ICHECK DISK PACK DONE 
JSKIP IF DONE 
f'DP DONE" STUCK ON 



jcheck 1/0 data lines 
»dia to device 

;grounded data line(S) 



JCHECK CA REGISTER FOR 
»ZEROS AFTER "RESET" 
»POSSIBLE FAILURE OF "RESET" 
fOR THE REGISTER, 



rCHECK DISK ADDRESS REG, 
JFOR ZEROS FOLLOWING lORST 
^FAILING REGISTER IC OR 
^POSSIBLE FAILURE OF "RESET" 
lOR "RESET S". 

;try to load ca with 

lALL ONES 

JLOAD CA REGISTER 

IREAD IT BACK 

ICHECK "DP DATOB", 

P'OPDATIB", CA REGISTER, 

MND DATA PATH THRU MUi<'S, 
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p|flt4ffW !?!P*fe24l A9S 


SETUP 


M(;i4fii i(^2c«Mc* 


ADC Pl,P> 


P!««4«2 Mfi2W33 


nCB 0,DSKP 


l?P1463 1^66433 


nic i,nsKP 


(*Pi4fi4 125l'lM4 


MOV 1,1, SZR 


(^0465 0W6?fl2 


EHALT 


v')i;»466 i^C"6243 


Lonp 


c^ei467 i^P6241 AlPi: 


SfcTUP 


C»PI47(i1 1PI2P>I?IP' 


ADC C",'^ 


(?IP1471 i^fi3Pid3 


nnc c«,DSKP 


PiC"472 i-1^543? 


niB i.nsKP 


t(0473 125C^«4 


MOV 1,1, SZR 


(«PI474 Pil?!6?4? 


EHALT 


&'(7I47S /I5'6241 All: 


SETUP 


«P\476 1PI2P'PIM 


ADC 0,P( 


P'W477 i/l63«33 


DOC c*,nsKp 


61PI50I» Pi6ft433 


Die l,nSKP 


MM5M1 122414 


SUft<» 1,W,S7R 


v';PlbPt2 PIC6242 


FHALT 


t-^CTSWi MPift243 


Lonp 


!?!(«b(?l4 WC?lb?4J A12: 


SETUP 


/PI5PI5 l!7'2PtHP 


AUC 0,51 


(TipiftPlb M62W33 


DOP 0,nSKP 


fr?(;i5P'7 «62677 


IQPST 


V^iA5lV| 065433 


DIP l,nSKP 


fr^piSll 19bi7'«4 


MOV 1,1, SZP 


C,Plhl2 1^01^24? 


EHALT 


|^(?IS13 V1I7'6?43 


LOOP 


C1PIS14 P1PI6241 A13: 


SETUP 


lfiPl5l5 l«2Pitiet 


ADC 0,0 


t^OI516 H^3W33 


HOC P',DSI<P 


C.p»517 P'fi2fi77 


lORST 


viciS2(^ M66433 


niC 1,DSKP 


t?Pl521 l?5P«i^4 


MOV 1,1, SZP 


PI?I522 PIW6242 


FHALT 


eiP>5?3 C1P16243 


LOOP 


P>I'!524 l/)Vt62A\ A14: 


SETUP 


H(«525 1(?I2S2^ 


SUPZL C^,0 


PIP1526 t^(S20i33 


DOR P,nSKp 


ii1C1b27 P(65433 


Die 1 nsKp 


P!Pi53P) 122414 


SUP« 1,1^, SZR 


tAPI531 ("516242 


EHALT 


t^Pi532 01^6243 


LOOP 


HPtb33 f^(ii624l AlfS: 


SETUP 


(^Cl534 B2WP)bPi 


LDA t«,KB14 


0PIS35 C*62i7i33 


DPP 0,DSKP 


MPI536 W65433 


DIR l,nSKP 


00537 122414 


SUBtt 1,0, S7R 


00540 00624? 


EHALT 


00541 O»0t)243 


LOOP 



>SEE IF DOR LOADS 

IDISK ADORESS REGISTER 

ILOAD CA REG. 

fREAD DISK ADOR REfi. 

»IT SHHULD STILL BE ALL 0'9 



rSEE IF DOC LOADS THE 
»CA REGISTER 
JLPAD DISK ADDR REG 
fREAn CA REGISTER 
>CA REGISTER SHOULn 
TREMAIN ALL ZERO 

fSEE IF THE DISK ADDRESS 
JREGISTER EXISTS 
fLOAD IT l«ITH ALL I'S 
JKFAD IT BACK 
ICHECK REGISTER ANn 
JDATA PATHS THROUGH 
JTHE MUX'S 

»SFF IF lORST WILL 
JCLEAR THE CA REGISTER 
JLOAD IT tNlTH ALL I'S 
ICLEAR IT TO ZEROS (RESET) 
»READ IT BACK 



»SEE IF lORST WILL 

KLEAR DISK ADDRESS 

JREGISTEP. LOAD ALL I'S 

fCLEAR TO ZEROS 

IREAD RACK 

f (S1,S2,S4,S8, ARE CLEAPEO 

fViA "RESET" THRU "RESET S") 



»TEST CA REGISTER FOR 

»SINGLE 1 PITS 

JLHAD "CA15" 

IREAD CA REGISTER 

|AC0sGOOn 

>AC1«BAD 



ITEST CA REGISTER FOR 
JSINGLE I BITS 
ILPAD "CA14" 
»READ CA REGISTER 
I AC0SGOOD 
t ACIbBAD 



A 7iV\(^Q .MAIN 



?1PI542 (^Pi6241 A16: 


SETUP 


(3PI543 k)20P)61 


LDA 0,KB13 


t^PI544 ti62Pl33 


DOB 0,OSKP 


KW545 ^165433 


OIB 1,DSKP 


0PI546 122414 


SUR*r 1,0, SIR 


0W547 MPI6942 


EHALT 


f^^550 M06243 


LOOP 


PIPI551 iflP»624l A17: 


SETUP 


1^0852 M2P!«6? 


LDA 0,KB12 


00553 P1625I33 


DOB 0,nSKP 


(1PIS54 f165433 


DIR 1,DSKP 


00S55 1224i4 


SUB# 1,0, S7R 


05^556 invi6242 


EHALT 


?!Ci)557 {9e'6243 


LOOP 


l?iPi56l^ MPI6241 AlBt 


SETUP 


^^561 Pi2f1P!63 


LDA 0,KH11 


00562 Cifi2Pi33 


nriR pi.nsKP 


P>P)5fi3 M65433 


OIB ijnsKp 


P1PI564 122414 


SUB* 1,0, SZR 


0PI565 MPie?4? 


EHALT 


^iWSfifS P)Pie243 


LOOP 


C?PlSfi7 0W6241 A19: 


SETUP 


K(^57H O120PI64 


LDA 0,K810 


t«Pi571 fr'62«33 


0D8 0,OSKP 


?|PI572 2165433 


DIB l,DSKp 


1(^(^573 122414 


SU8« 1,0, SZR 


P1W574 0C'6?4P 


EHALT 


»W575 HPI6243 


LOOP 


i8W576 ^0)6241 A2P)C 


SETUP 


0(?I577 P2("P!65 


LDA 0,KB9 


(^Pl6H?l P(62Pi33 


DOB 0.DSKP 


HPl6P»l 065433 


OIB 1,DSKP 


i?il!l6P>2 122414 


SUB*« 1,0, SZR 


eP)6(?i3 P<PI6242 


EHALT 


?)PI6PI4 5106243 


LOOP 


C1PI6PI5 0PI6241 A2i: 


SETUP 


PIW6M6 !?)2P1PI66 


LDA 0,Ke8 


0P'6P)7 062P»33 


DOB 0,DSKP 


P!P)610 065433 


DIB l,nSKP 


00611 122414 


SUB* 1,0, S7R 


K0612 006242 


EHALT 


00613 006243 


LOOP 



JTEST CA REGISTER FOR 

ISINGLE 1 BITS 

ILOAD "CA13N 

fREAD CA REGISTER 

iAC0aGODD 

IAC1«BAD 



»TEST CA REGISTER FOR 

fSINGLE 1 BITS 

aOAD "CA12" 

IREAD CA REGISTER 

IAC0«GOOD 

»AC1«8AD 



»TEST CA REGISTER FOR 
rSlMGLE 1 BITS 
ILOAD "CAll" 
/READ CA REGISTER 
IAC0«GnOD 
f AClsBAD 



/TEST CA REGISTER FOR 

ISINGLE 1 BITS 

ILOAD "CA10" 

IREAD CA REGISTER 

IAC0«GOOD 

IAC1«BA0 



ITEST CA REGISTER FOR 

ISINGLE 1 BITS 

ILOAD "CA9" 

IREAD CA REGISTER 

|AC0«GOOD 

|AC1«BAD 



ITEST CA REGISTER 
ISINGLE 1 BITS 
ILOAD "CAB" 
IREAD CA REGISTER 
IAC01GOOD 
IAC1«BAD 



FOR 



A Pl/li^ .MAIN 



HffffcU 


WPI6241 A22 8 


Sf TUP 


{/iPifilS 


(^20P167 


LDA C^,K87 


M?I616 


W62t^33 


DOP PI.OSKP 


iA?ifi{7 


i^ftb433 


DIR 1 nSKP 


VlW62?l 


122414 


SUfl« lii!i.S7R 


t>! PI e ? 1 


?i(^f5242 


EHALT 


P^ 51622 


Pi 1716243 


Lonp 


tfl 5^623 


51(716241 A23: 


SETUP 


v?C^ft24 


i/2Pit^33 


LDA ?l,nSKp 


CI 5*625 


061433 


niR oi,nsKp 


t*P!fi2^ 


i^6b43? 


niR i,nsKP 


tiClb27 


122414 


SUP» l,W,SZR 


M5^630 


W(?6242 


FHALT 


Ir^flbSl 


Hi^6241 A24: 


SfTUP 


k'lPifesa 


(;i2«W71 


LDA ?I,KB5 


RM633 


(^62(^33 


OOP i7!,nSKP 


(^Pi634 


«65433 


DIP J,nsKP 


PIPI635 


122414 


SUP* l,tl,S7H 


f PI 6 36 


^^^6242 


FHALT 


piPI637 


4"Wb243 


LPnP 


PPI64M 


tiPi6241 A25: 


SF:TUP 


(^C*641 


fi2MPi72 


LIU W,KB4 


(^P!642 


t^fi2Ci'33 


noP P'inSKP 


iiiP!643 


i;ifib433 


DIP l.nSKP 


«?IPI644 


122414 


SUB* 1,M,S7« 


HPI645 


PP<6242 


EHALT 


H»646 


0PI6243 


LOOP 


i?iP'647 


^06241 A26: 


SFTUP 


pipiesi;^ 


i?2(^W73 


LDA C«,KB3 


i/iPlb5l 


W62Pt33 


DDP P<,nSKP 


MPI652 


M65433 


DIP l,DSKP 


acfefSS 


122414 


SLlP« l,fl,SZK 


0l?ib54 


?IPI6242 


FHALT 


H«65S 


(?ii?i6243 


Lonp 


t"i»656 


ti(?l6241 A27: 


SFTUP 


Mi^657 


(^2(?!ni74 


L(>A Pi,KB2 


P1PI66I/' 


fc^ff2«33 


DDP Pl,DSKP 


ViVib^l 


0^65433 


DIP i,nsKP 


i^ei6f>2 


122414 


SUPa l,M,S7R 


(?;«b«3 


ti»F!6242 


FHALT 


0(?l6fi4 


(^M6243 


LOOP 



iTEST CA ttFGTSTER FOR 
JSINRLE 1 BITS 
JLDAD "CA7" 
IREAD CA REGISTER 

J AC0"r,non 

JAClaBAD 



JTEST CA REGISTER FOR 

ISTNGLE 1 BITS 

ILOAD "CA6" 

JREAO CA REGISTER 

|ACei«GOOD 

»AC1»BAD 

JTFST CA REGISTER FDR 

fSINGLE 1 BITS 

fLDAD "CA5" 

»READ CA REGISTER 

> AClflsGDOD 

»AC1«BAD 



JTEST CA REGISTER FOR 
JSINGLF 1 PITS 
aOAD "CA4" 
>READ CA REGISTER 

MCP'sGnon 

J AC1«BAD 



JTEST CA REGISTER FOR 

»SINGLE 1 BITS 

»LDAD "CA3" 

JRFAO CA REGISTER 

» ACPI«GnOD 

JAC1"HAD 



ITEST CA REGISTER FQR 

fSlNRLE 1 BITS 

ILDAD "CA2" 

JRFAD CA REGISTER 

»AC0»GnOD 

r AC1»BAD 



A 00U .MAIN 



00665 006241 A28} 
00686 020054 
00667 062033 

00670 065433 

00671 122414 

00672 006242 

00673 006243 

00674 006241 A29I 

00675 102620 

00676 062033 

00677 065433 

00700 122414 

0070 1 006242 

00702 006243 

00703 006241 A30: 

00704 10212PI 

00705 062033 

00706 065433 
{Sff(79^7 122414 

00710 006242 

00711 006243 

00712 0PI6241 A3l: 

00713 020075 

00714 062033 

00715 PI65433 

00716 122414 

00717 006242 

00720 006243 

00721 006241 A32: 

00722 020076 

00723 062033 

00724 065433 

00725 122414 

00726 006242 

00727 006243 



SfcTUP 

LDA 0,KB1 

DOB 0,DSKP 

D10 1,0SKP 

SU8« 1,0, SZR 

EHALT 

LOOP 

SETUP 
SU8ZP 0,0 
DOR 0,DSKP 
DIB 1,DSKP 
SUR# l,0,SZR 
EHALT 
LOOP 

SETUP 

ADCZL 0,0 
nn« w.nsKP 
DIB lioSKp 

SUB*» 1,0, SZR 

EHALT 

LOOP 

SETUP 

LDA 0,Z814 

DOR 0,OSKP 

DIB l,DSKP 

SUB*» 1,0, SZR 

EHALT 

LOOP 

SETUP 

LDA 0,Z813 

008 0,DSKP 

DIB 1,D8KP 

SUBO 1,0, SZR 

EHALT 

LOOP 



ITEST CA REGISTER FOR 

ISINGLE 1 BITS 

/LOAD "CAl" 

»READ CA REGISTER 

IAC0«GOOD 

lAClsBAD 



ITEST CA REGISTER 
ISINGLE 1 BITS 
ILOAD "CA0" 
IREAD CA REGISTER 
|AC0«GOOD 
IAC1»BAD 



ITEST CA REGISTER FOR 

ISINGLE BITS 
II n An i 7777« 

IREAD CA REGISTER 

IAC0SGOQD 

|AC1«BAD 



ITEST CA REGISTER FOR 

ISINGLE BITS 

ILOAD 177775 

IREAD CA REGISTER 

IAC0SGOOD 

|AC1«BA0 



ITEST CA REGISTER FOR 

ISINGLE BITS 

ILOAD 177773 

IREAD CA REGISTER 

|AC0«GnOD 

IAC1«8A0 



00730 006241 A33; 

00731 020077 

00732 062033 

00733 065433 

00734 122414 

00735 006242 

00736 006243 



SETUP 

LDA 0,ZB12 

DOR 0,OSKP 

DIB 1,0SKP 

8UB« 1,0, SZR 

EHALT 

LOOP 



ITEST CA REGISTER 
ISINGLE BITS 
ILOAD 177767 
IREAD CA REGISTER 
IAC0IGOOD 
|ACl«BAD 



FOR 



A (71/12 .MAIM 



!?'.P!737 


i^<^.62A*. A34S 


Sf TUP 


P1/74M 


a2C!HMPl 


LDA (^,7Hll 


k>Pt741 


PI62W33 


DDH ("fDSKP 


Mf^742 


H65433 


niH l,nSKP 


C«C»743 


122414 


SUfi« 1»(^#S7R 


C«C«744 


C^ 51624? 


EHALT 


pi 51745 


t"P!6245 


LOOP 


Pl?i746 


i?lPl6241 A35: 


SETUP 


PIP1747 


P"2I^1W1 


LDA P!,ZB10 


(*ic^75» 


1^62033 


OPH PijOSKP 


^1^751 


P'fi5433 


DIP i,nsKp 


00*752 


122414 


SUB«» l,l^,SZR 


|?(PI753 


(A9I67A2 


EHALT 


C*(?1754 


0136243 


Lonp 


PIP1755 


P»PI6241 A36I 


St.TUP 


!7.PI7 5fi 


i42CM0? 


LDA Pl,ZB9 


p^(?t7S7 


t^62(^33 


DDB i^,nSKP 


!^Ct7fiM 


W65433 


DIP 1,nSKP 


510761 


122414 


SU8« 1,K,SZR 


i^Pi7fi2 


t'1Pi624? 


EHALT 


i?'W763 


(!iC»6?43 


LDDP 


0Pl7fi4 


PIPI6241 A37: 


SETUP 


C1PI765 


t^2eilil3 


LnA !?i,Zb8 


tiCi766 


ti1f2Pi33 


OOP W,nSKP 


«0I767 


W6543? 


niB i,nsKp 


P*(«77(?) 


122414 


SU»« l,0fSZR 


?P!771 


i;iPlfi242 


EHALT 


V0PI772 


MPI6243 


LOOP 


0PI773 


0P(6241 A38: 


SETUP 


C^C1774 


?i2?il(?l4 


LTiA <^,7.B7 


/iP«775 


PlP2C^33 


noB C^,nSKP 


iiPi776 


t^fi5433 


DIB l,nSKP 


i«W777 


122414 


SUB** l.«,SZH 


PilgspiH 


7«6242 


EHALT 


l^l«P!l 


t/i 516243 


Lrnp 


I?IP1PI2 


1^76241 A39; 


SETUP 


C1IPP13 


iA9(/\{C}5 


LPA P!,7B6 


W1PIPI4 


i^62Pl33 


DOB n,D5KP 


i^lCIC^S 


(^65433 


niP l,nSKP 


i^ipipie 


122414 


SUB* 1,14,S7R 


Ptli?C17 


MP!fi242 


EHALT 


Mli7il0 


t<W624? 


LOOP 



ITFST CA REGISTER FOR 

ISINGLE PI BITS 

>LOAO \777^7 

>REAn CA REGISTER 

JAC0«iGOOD 

IAC1»BAD 



JTFST CA REGISTER FQR 

^SINGLE ZERO BITS 

ILOAD 177737 

JREAO CA REGISTER 

FACMBGOOn 

lACl'HAO 



ITEST CA REGISTER FOR 
fSlNRLE ZERO BITS 
ILHAD 177677 
IREAD CA REGISTER 

;ACi?«6nDP 

lACl-BAD 



»TEST CA REGISTER FOR 
ISINRLE Pl BITS 
»LOAn 177577 
IREAO CA REGISTER 

;AC?i"Gnon 

»AC1«BA0 



ITEST CA REGISTER FOR 
JSINGLE l^ BITS 
ILOAn 177377 
>REAn CA REGISTER 
IACMbGOOD 
J ACIbBAD 



ITEST CA REGISTER FOR 
ISIi^GLE ZERO BITS 
ILOAO 176777 
IREAD CA REGISTER 

; Ace^BGonn 

|AC1«HAD 



A PIPI13 .MAIN 



t^lKll 


006241 A40i 


StTUP 


fTEST CA REGISTER 


(31012 


020106 


LPA 0,785 


ISINGLE ZERO BITS 


ViiAiZ 


062C133 


DOB 0,DSKP 


ILOAD 175777 


010U 


M65433 


nifl 1,DSKP 


»READ CA REGISTER 


&11f5l5 


122414 


SuB« l,0,S7K 


IAC01GOOD 


0li?!l6 


00624? 


EHALT 


f AClaBAO 


H1017 


006243 


LOOP 




0l02i!!l 


006241 A4l: 


SETUP 


;TEST CA REGISTER 


01021 


PI20107 


LDA 0,Z84 


ISINGLE BITS 


^1022 


062033 


DOB 0,nSKP 


»LOAD 173777 


01023 


«165433 


niR 1,DSKP 


IREAD CA REGISTER 


01024 


122414 


SUR« 1,0, S7R 


|AC0«GODD 


01025 


006242 


fHALT 


f ACHBAD 


01026 


006243 


LDOP 




01027 


006241 A42: 


SETUP 


ITEST CA REGISTER 


01 030 


0201 10 


LDA 0,783 


fSINGLE BITS 


010 31 


062033 


nna m nci/p 


• 1 n«is (cm-*-* 


01032 


065433 


RIB l,r>SKP 


IREAD CA REGISTER 


01033 


122414 


Sl)8« 1,0, S2R 


IAC0«GOOD 


01034 


0^6242 


EHALT 


1 AC i SB AD 


01035 


006243 


Lonp 




01036 


«06241 A43: 


SETUP 


»TEST CA REGISTER 


1037 


020111 


LDA 0,782 


;SINRLE ZERO BITS 


{1^1040 


062033 


nns c»!,nsKP 


ILDAD 157777 


01041 


065433 


niB i,nsKp 


IREAD CA REGISTER 


01042 


122414 


SUB» l,0,SZR 


IAC0-GOOD 


01043 


006242 


EhALT 


lACliBAD 


01044 


006243 


LPOP 




0104b 


006241 A44t 


SETUP 


ITEST CA REGISTER 


01046 


020112 


LDA 0,ZB1 


ISINGLE BIT 


01047 


062033 


noB 0,nSKP 


•LOAD 137777 


01050 


065433 


ni8 1,0SKP 


IREAD CA REGISTER 


01051 


122414 


SUB# 1,0, S7R 


IAC01GOOD 


01052 


006242 


EHALT 


|AC1«BAD 


01053 


006243 


LOOP 




01054 


006241 A45; 


SETUP 


ITEST CA REGISTER 


01055 


102220 


ADCZR 0f0 


ISINGLE ZERO BIT 


01056 


062033 


DOB 0,DSKP 


ILDAD 077777 


01057 


065433 


DIB 1,DSKP 


IREAD CA REGISTER 


01060 


122414 


SUBW l,0,SZR 


IAC0SGOOD 


01061 


006242 


EHALT 


IACIbBAD 


01062 


006243 


LDOP 





FOR 



FOR 



FOR 



FOR 



FOR 



FOR 



A "Iv^l 4 .MAIM 



/ 1 C' f, 3 


?!p'e241 A4S! 


SETUP 


Pllt^64 


1P'252W 


SIJRZL Pl»f^ 


[^1(?65 


u1fi3(7i33 


HOC W,nSKP 


ll?!l(i^«6 


C^fi6433 


Die i,nsKp 


l?ilt^fi7 


122414 


SURa l,kl|SZR 


HIP7M 


i/ip!6243 


EHALT 


f^lt^71 


WPI6243 


Lpnp 


i^ 1 til 7 2 


C1P16241 A47: 


SETUP 


t^ t f ^ 7 3 


'/ ? 1^ 6 1^ 


I.DA M,Kbl4 


trlP!74 


«63(^33 


Dec l^,nSKP 


t" 1 W 7 5 


t^fi6433 


nic i,nsKp 


/l(i^76 


122414 


SL)R« l,t^,S7i* 


^\V>77 


MC'6242 


EHALT 


&ill?l» 


0R6243 


Lcnp 


^m »< I 


(/1PI624) A48: 


StTUP 


»^i ip-a 


i/igf/ipiei 


LDA P»,KB13 


011ti3 


wi63«l^3 


nnc ci,nsKp 


P'UPI4 


066433 


nic 1 »nsKp 


C^l 1W5 


122414 


SUHtt l,ki,S7» 


P*l 1P*6 


Mt^6?42 


FHALT 


!^11W7 


I?IPI6243 


Lonp 


c; n 1 P« 


PIWfi?41 A49: 


SETUP 


t^llll 


02l?Cl62 


LDA C1,K812 


/U12 


!?lfi3W33 


noC C^,DSKP 


tfllll3 


ti6b433 


nic i,nsKP 


v\\\A 


122414 


SUBu l,fi,S7» 


(^1115 


(vt 1^6249 


FHALT 


^lUb 


(/iy»6243 


Lunp 


7 n 1 7 


i^Pl6241 A5C?i: 


SETUP 


Pill?vl 


i;i?e<w63 


LDA Pi,K6ll 


(^1121 


pi(!3l^33 


nuc R,nsKp 


(^ll?2 


PI66433 


nic l,nsKP 


1^1123 


122414 


SUP* l»vfi.S7R 


WU24 


PIPI6P4? 


EHALT 


^1125 


(/1PI6243 


uonp 


eitl?fi 


P»P6241 A5i: 


SETUP 


f*U?7 


t^2(rtPi64 


LDA Pt , K tt 1 


0U3t! 


C^63PI33 


HOC i^,nSKP 


e. 11 3 1 


066433 


Die l,nSKP 


01132 


122414 


SUf^*» l,t1,SZR 


01133 


MK6242 


EHALT 


(^1134 


t?iW6243 


LOOP 



ITEST DISK ADDRESS REGISTER 

IFDR SINGLE 1 BIT 

fLDAD "SCI" 

FHFAD BACK 

> AC0"GnOD 

MCl-BAD 



rTEST DISK ADDRESS REGISTER 

JFDR SINGLE \ BITS 

ILDAD "SC2" 

»READ BACK 

> ACi^aGOOD 

I AC1»BAD 



fTFST DISK ADDRESS REGISTER 
FFDR SINGLE J BITS 
ILDAD "SC4" 
JREAD RACK 

;ACt«i»&noD 

MCl«HAD 



ITEST DISK ADDRESS REGISTER 

JFDR SINGLE I PITS 

ILDAD "SC8" 

IRFAD RACK 

IACI?i»GnDD 

>AC1«BAD 



ITEST DISK ADDRESS REGISTER 

IFOR SINGLE 1 BITS 

ILDAD "SI" 

IREAD RACK 

I ACll»GnDD 

|AC1»BAD 



ITFST DISK ADDRESS REGISTER 
IFOR SINGLE 1 BITS 
ILDAD "S2" 
IREAD RACK 

iAC;^«GnoD 
IACl"BAD 



A «iai5 .MAIN 



01135 


006241 


(^1136 


020065 


01137 


063033 


(«114« 


066433 


P<1141 


122414 


01142 


006242 


PI1143 


006243 


01144 


006241 


01145 


020«66 


01146 


063033 


01147 


066433 


01150 


122414 


M 1 1 Ci* 


nnen An 


«'***.'* 


"'•\je.te 


01152 


006243 


01153 


006241 


01154 


020067 


01155 


0fi3033 


01156 


066433 


01157 


122414 


01160 


0P16242 


01161 


006243 


«llfi2 


0516241 


6^1163 


PI20070 


01164 


063033 


01165 


066433 


01166 


122414 


01167 


t^06242 


01170 


006243 


01171 


006241 


01172 


020PI71 


01173 


063«33 


01174 


066433 


01175 


122414 


01176 


006242 


01177 


006243 


012«0 


006241 


01201 


020072 


01202 


063033 


01203 


066433 


01204 


122414 


012PI5 


006242 


01206 


006243 



A52I SETUP 

LOA 0,KB9 
DDC 0,DSKP 
Die 1,DSKP 
SU9*» l,0,SZR 
EHALT 

Lonp 

A53: SETUP 

LOA 0,KB8 
noC 0,DSKP 
Die 1,DSKP 
SUB* l,0,SZR 
r. r « L T 
LOOP 

A54: SETUP 

LDA 0,KB7 
DOC 0,DSKP 
Die 1,DSKP 
SUB* 1,0, S7R 
EHALT 
LOOP 

A55I SETUP 

LDA W,KB6 
DOC 0,DSKP 
Die 1,DSKP 
SUB* 1,0, SZR 
EHALT 
LOOP 

A56J SETUP 

LDA 0l,K85 
DOC 0,OSKP 
Die l,nSKP 
SUB* 1,0, SZR 
EHALT 
LOOP 

A57: SETUP 

LDA 0,KB4 
DOC 0,OSKP 
Die 1,DSKP 
SUB* 1,0, SZR 
EHALT 
LOOP 



tJlSJ DISK ADDRESS REGISTER 
»FOR SINGLE 1 BITS 
ILOAD "34" 
IREAD IT BACK 

MC01GOOO 
»ACl«BAD 



rTEST DISK ADDRESS REGISTER 

IFOR SINGLE 1 BITS 

ILOAD "SB" 

IREAD IT BACK 

IAC0«GOOO 

lACliBAO 



ITEST DISK ADDRESS REGISTER 

IFOR SINGLE 1 BITS 

'LOAD "HDl" 

IREAD IT BACK 

IAe0»GOOO 

lAClaBAD 



ITEST DISK ADDRESS REGISTER 

IFOR SINGLE 1 BITS 

ILOAD "HD2" 

IREAD BACK 

IAC0«GOOD 

lACl-BAD 



ITEST DISK ADDRESS REGISTER 

IFOR SINGLE 1 BITS 

ILOAD "HD4" 

IREAD IT BACK 

IAC0«GOOD 

lACliBAD 



ITEST DISK ADDRESS 
IFOR SINGLE 1 BITS 
ILOAD "HD8" 
IREAD IT BACK 
IAC0»GOOD 
IACl»BAD 



REGISTER 



A PIPllfe .MAIN 



M12«7 WPI6941 ASS! 


SETUP 


ifi\2\V! M20P73 


UDA («,KB3 


fe)l211 M63W33 


DOC PifDSKP 


P"l?12 t^P6433 


Die l»nSKP 


/1213 122414 


SUB*. 1,0, S7R 


H1214 P'C^b242 


F-HALT 


fr^lZlb W06243 


LOOP 


til216 WW6Z41 A59: 


SeTUP 


C^1217 ci20Pt74 


LDA 5I,KB2 


i?il220 063W33 


DCiC Pi,DSKP 


(^1221 PI66433 


Die i,nst<P 


5^1222 122414 


SUB» l,l(a,S7R 


1/^1223 RP!6249 


EHALT 


v-1224 I^PI6243 


LOOP 


(M225 t?^6241 A6P): 


SETUP 


/122H M2(?754 


LDA E^.KHl 


'/^1227 1^63«33 


nor c^,nsKP 


V\2^V\ {-66433 


nic i,riSKp 


(^1231 122414 


SUH« l,k3,S7« 


I/.1232 HPI624? 


EHALT 


fMZSS (^?I6243 


LOOP 


W1234 «P'6241 A6i: 


SETUP 


/123S 19l2fi2(^ 


SUPZH P",?) 


H1236 M63PI33 


DOC t^iDSKP 


i?1237 PI66433 


Die 1,DSKP 


P124H 192414 


SUH*» l.^,S7K 


fnl241 C^PI6242 


fcHALT 


P'!1242 £>(PI6243 


LOOP 


6^1243 «t^6241 A621 


SETUP 


^^1244 10212PI 


ADCZL i?l,9l 


(;il245 iifi3l?>33 


Dor Pi,nSKP 


5-1246 t^fi6433 


DIG 1,DSKP 


IM247 122414 


SUB* l,ia,S7W 


P)125tf) iA^bPAP. 


FHALT 


/1251 P!P)6243 


LOOP 


i/'12S2 (^(^6241 A63: 


SETUP 


C.1253 vi2V'f75 


LDA PI,7H14 


«1254 0<53P133 


DOC P*,nsKP 


iil2S5 0)66433 


Die t,DSKP 


^^1256 122414 


SUB* 1,^,SZP 


651257 WC^6242 


EHALT 


01260 PIPI6943 


LOOP 



REGIEISTER 



ITEST DISK ADDRESS 
fFDR SINGLE 1 BITS 
»LOAD "HD16" 
IREAD IT BACK 
»AC0»GOOD 
»ACl"RAD 



»TEST DISK ADDRESS REGISTER 

»FOR SINGLE 1 BITS 

ILOAD "FORMAT" 

IREAD IT BACK 

f AC0»GOOD 

fACl*BAO 



ITFST DISK ADDRESS REGISTER 

IFOR SINRLE 1 BIT 

ILOAD "Dl" 

IRF-AD IT BACK 

|ACC^»GOOD 

lAClsBAD 



ITEST DISK ADDRESS REGISTER 

IFOW SINGLE 1 BITS 

ILOAD "Dl^" 

IRFAD IT BACK 

I ACtisGOOD 

IAC1«BAD 



ITEST DISK ADDRESS REGISTER 

IFOR SINGLE (^ BITS 

|"SCl"si(i 

IREAD THE REGISTER 

I ACPIBGOOD 

I AC1«BAD 



ITFST DISK ADDRESS 
IFOR SINGLE fi BITS 
l»SC2" ■ 
IREAD REGISTER 
|AC1^«G00D 
IACl«BAD 



REGISTER 



A Pl^il? .MAIN 



I^12fil i^Pt6?41 A64t 


StTUP 


VA262 t52«0»7fi 


LDA 0,7B13 


fcil263 ia63033 


DOC 0,DSKP 


P12«4 {166433 


Die 1,DSKP 


H1266 122414 


S'JB* 1,0, SZR 


»1266 i^PI6242 


EHALT 


fil267 P'PI6243 


Lonp 


012769 0(96241 &65: 


StTUP 


01271 i;?2eiPi77 


LDA 0,ZB12 


H1272 ei63Pi33 


Doc 0,nSKP 


M1273 P166433 


nic i,r)SKp 


01274 122414 


SUP*> l,0,SZW 


r^407K nntifi An 


^ t * t ^ 


^- A m^ r sf V 1^' w c; ■* ^ 


c. w a L 1 


?!1276 PIPI6243 


unnp 


(51277 ^e«6241 A6fi: 


SETUP 


pii3Piei i?i20igipi 


LPA 0,ZB11 


eilSPtl PI63«33 


DnC 0,DSKP 


eil3f'2 PI66433 


OIC 1,DSKP 


t^l3l?l3 122414 


8UR« l,fei,S7R 


t(il3P'4 ?1PI6?42 


EHALT 


i^lSC^S Cie^6243 


Lonp 


«13PI6 0(»6241 A67: 


StTUP 


C113PI7 (ii?Hl01 


LDA 0,ZB10 


fc'lSlI? e>63P)33 


HOC 0,nSKP 


P)1311 (166433 


Die i,nsKp 


01312 122414 


SUB* l,0,SZR 


1^1313 fiP"6242 


EHALT 


01314 (?i(16243 


LOOP 


£^1315 W06241 A68: 


SETUP 


B*1316 02PI1H2 


LDA 0,ZB9 


01317 (^63^33 


DOC 0,f)SKP 


K132PI (166433 


DIG l,DSKP 


«1321 122414 


SUB« 1,0, SZR 


01322 PIPI6242 


EHALT 


01323 P1PI6243 


LOOP 


01324 0[?I6241 A69: 


SETUP 


01325 020103 


LDA 0,788 


01326 063033 


DnC 0,DSKP 


01327 066433 


Die l,nSKP 


01330 122414 


RUB* l,0,SZR 


01331 006242 


FhALT 


01332 006243 


LCDP 



fTEST DISK ADDRESS REGISTER 
fFDR SINGLE BITS 
»"SC4" » 

freao register 

;ac0»good 

MC1«BAD 



ITEST DISK ADDRESS REGISTER 

IFDR SINGLE BITS 

r'SCfl" a 

?READ REGISTER 

IAC01GDOD 

FAClsBAD 



ITEST DISK ADDRESS REGISTER 

IFOR SINGLE BITS 

I " S 1 " ■ PI 

IRFAD REGISTER 

IAC0»GDDD 

MC1«BAD 



ITEST DISK ADDRESS REGISTER 

IFDR SINGLE ZERO BITS 

}"S2" « 

IREAD IT BACK 

IAC0»GODD 

lACliBAD 



ITEST DISK ADDRESS REGISTER 

IFDR SINGLE ZERO BIT 

l"S4" ■ 

IREAD IT BACK 

IAC0»GOOD 

IAC1«8AD 



ITEST DISK ADDRESS REGISTER 

IFDR SINGLE ZERO BITS 

|"S8" ■ 

IREAD IT BACK 

IAC01GDOD 

I AC1«BAD 



A ClC^lfl .MAIM 



f/^l33a 
1^1341 



MPIb?4l 

H63t'33 
H66433 
172A\A 

f5P16?43 



A7Cit: 



C^1342 ^C«fe241 A7l: 

«1343 i^?0tM5 

0*1344 M63PI33 

^1345 «66433 

i^l346 1P2414 

1^1347 tspl624? 

1^135^5 WP»6943 

/1351 l?l(?'^?41 A7?: 
(,"13^2 (^Sk^l/.'S 
P1353 5ifi3C133 
013B4 ^^66433 
^5 1 3*^5 122414 
i^13Sb 1^(^6242 
1^1357 fiPib243 

t^l3fivl ((»P'b241 A73: 

cl3fil ^2^107 

I^13fi2 /fi3Pi33 

i>1363 '/ififi433 

tM364 122414 

m36b Pil^6?42 

\A\if>6 Wi?'6243 

/.13fi7 0(^6241 A74: 

1/11370 Ci2(M IM 

/I 37 I P'fi3'^33 

vM372 I^fi6433 

/.1373 122414 

(^M37 4 610(624? 

Ml37b 01(^6243 

/1376 /C»h241 A75: 

/I 377 i7i2;Hn 

t/iMyiM ^63^33 

(AlA<Al k^fi6433 

1^14(^2 122414 

W14(?I3 /l''ft?42 

014H4 (;iC«i6?43 



•SE-TljP 
LDA P',7H7 
HOC Pl.nSKP 

nic t,nsKP 

Sl.iR* l,i^.S7K 

FHALT 

LODP 

SFTUP 

nnc c",nsKp 
nir i,0SKp 

SUB* 1,1?.S7R 
PHALT 

Lnnp 

St TUP 
LOA y',7b5 
HOC 9l,nSKP 

nin i.nsKp 

SuHft 1,H,S2K 
EI-iALT 

Lnnp 

SETUP 

L n A tS 7 B 4 

nnc p,DSKP 
nir i,nsKP 

SUR« l,t^,S7W 
FHALT 

Lnnp 

Sf-.TUP 
IDA M , 7 H 3 

noc i^f^SKP 
nic unskp 

SUH« i,^'>,S7H 
EHALT 

Lnnp 

Sf-.TUP 

LDA Pi,7t«2 

nnr c^^nsKp 
Die wnsKp 

SUB« l,k?,S7K 
FHALT 

Lonp 



JTFST niSK AnDRESS REGISTtR 

IFOR SINGLE « BIT 

fi'HDl" ■ V^ 

IPEAD IT BACK 

»ACP!«Gncn 

>AC1«BAD 



»TFST DISK ADDRESS REGISTER 

IFOR SIMGLF P BIT 

|iiHD2" « Vf 

fREAD IT BACK 

MC0SGOOD 

|ACl»HAD 



ITFST DISK ADDRESS REGISTER 
IFHR SINGLE 7ER0 HITS 
>"HD4" 1 fel 
»READ IT BACK 

lACt'cGnnn 

» ACl«HAn 



JTFST DISK ADDRESS REGISTER 
IFDR 5INGLF P BIT 

»RFAD IT BACK 
; ACMiGDOn 
f AClsBAD 



JTEST DISK ADDRtSS REGISTER 

jFn« SINGLE 1^ PIT 

;"HD16" ■ P* 

JRFAD IT BACK 

> ACl^iaGOOD 

JAri»BAD 



fTEST DISK ADDRESS REGISTER 
IFOR SINGLE ZERO BITS 
f'FORMAT" B Vi 
IREAD IT HACK 
I ACHbGDOD 
I AClsBAD 



.EOT 



0019 .MAIN 



?I14P!5 P»PI6241 A7«: SETUP 

«U06 PI20112 LDA P!,ZBl 

014017 063PI33 DOC ?I,D8KP 

?I1410 066433 Die 1,DSKP 

?14{1 122414 SU8« i,0,SZR 

01412 PIPI6242 EHALT 

511413 0PI6243 LOOP 



ITFST DISK ADDRESS 
IFOR SINGLE PI BIT 
f"Dl" ■ 
IREAD IT BACK 
}AC0i6nOD 
IACl«8AD WORD 



REGISTER 



K1414 C5P)6241 A77t SETUP 

P11415 1W222PI ADC2R C » 

«1416 063PI33 noC Pt.HSKP 

(11417 066433 Dir l.DSKp 

i?l4?0 122414 SUB« l,Pi,SZR 

iflUZl 0P16242 EHALT 

R1422 0PI6243 LOOP 



»TEST DISK ADDRESS REGISTER 

JpnR SINGLE ZERO BIT 

>"D0" ■ 

»REAO IT BACK 

f AC0«GOOn 

IACi«8AD 



i?!l423 
f'1424 
PI1425 
(^1426 
71427 
0143K 
PI1431 
c^J432 
(J11433 



1PI24CHC'I 

0(^6237 
c?fi2a33 

»65433 
122414 

0PI6S42 
HPI6243 
10140)4 
PI00771 



A78: 



SU8 
JSR 



PISET 



nnn ffl,nsKP 

DIB 1,DSKP 

SU8« l,0,SZR 

EHALT 

LOOP 

INC 0,0, SZR 

JMP ,-7 



REGISTER, 

PATTERNS 



KHECK CA 

»P0SSI8LE 

ILOAO CA 

»READ IT BACK 

»AC0«GOOD 

lACHBAD 

/DO IT ONLY ONCE 

INEXT PATTERN 



ALL 



FOR EACH PAT 



01434 M06237 A79: JSR PISET 

01435 063033 DOC 0,nSKP 

01436 066433 DJC 1,DSKP 

01437 122414 SU8I* l,0,SZR 

01440 006242 FHALT 

01441 006243 LOOP 

01442 101404 INC 0,0, SZR 

01443 000771 JHP ,-7 

651444 006241 A80» SETUP 

01445 102400 SUB 0,0 

01446 030134 LDA 2,RIT1 

01447 072033 DOB 2,DSKP 

01450 072033 DOB 2,DSKP 

01451 072033 DOB 2,DSKP 

01452 062033 DOB 0,DSKP 

01453 065433 DIB l,DSKp 

01454 125004 MOV 1,1, SZR 

01455 006242 EHALT 

01456 006243 LOOP 



KHECK DISK ADDRESS REGISTER 

lALL POSSIBLE PATTERNS 

ILOAD/READ BACK 

»AC0«GOOD 

»AC1«BAD 

INEXT PATTERN 



ISPECIAL TEST FOR 82QI 
lie PACKS, SET RIGHTMOST 
IBIT IN EACH PACK WITH 
13 SUCCESSIVE LOADS, THfcN 
ILOAD ZERO. MARGINAL 
IPACKS WILL HOLD THE "1", 



ITESTING CA 

|AC0"GOOD 

IAC1»BAD 



REGISTER 



A Pll«2Pi .MAIM 



|i 1 4 fi W I PI 2 4 M n 

1/^1461 M3M135 

i^l4fi2 ^'72PI33 

^•1463 0172(^33 

(/il4«4 H72CI33 

f^l465 l?iF2i?i33 

fil466 1^65433 

Vi\4f>7 122414 

til47c^ tip!624p 

HM71 HW6P43 



c/. 1472 
vn473 
M1474 

;'. 147 5 
H 1 4 7 6 
1/11477 

kilhon 
>^1SMI 
(^tbM2 
i/il5t"3 

MlbPI4 



^iPi624l 
lM24i^ei 
n3t^l3« 
PI72PI33 
W72PI33 
M72W33 
t^fi2P»33 
P16S433 
122414 
i/ll?l6?4? 
ei!?l6?43 



A82: 



Hl5Pi5 Vi^(??4) A83: 

vilSPte lC^24flW 

tr.lhPi? ^3M137 

t*151f^ yi72'^33 

•yilSll P'72P!33 

i11512 0721^33 

f/lbl3 (^620^33 

V51514 !<»fiP433 

tilSlS 122414 

iaiSl6 i^l7l6942 

i^lSl? l^Pi6243 

^lt)2/ HM6241 A84: 

H1521 li?'24viPi 

H1522 i!?3'-1134 

t?lb23 i'i73i?«33 

»1524 i^73i"33 

iilS?^ 1^735^33 

Pilb2b 0f!3Pi33 

tnb27 V'fi(S433 

i^lSSPi 122414 

0^1931 HP»624? 

0^1532 Pl(?t6243 



SETUP 
SUB <^i^ 
LPA 2,BIT2 
DOR 2,D8KP 
nop 2,nSKP 
nnn 2,r)SKp 

OliB W,nSKP 

ni« i,nsKp 

SUHtt 1,0, S2K 
FhALT 

Lonp 

SKTUP 

SljR I'', "I 

LDA 2,aiT4 

PDR 2,DSKP 

now 2,0SKP 

OOP ?,nSKP 

DOB P»,nSKP 

[)IH i,nsKP 

SliR*« 1,^,S7R 
FHALT 

Lnnp 

SETUP 
SUB Pl,!^ 
LDA 2, BITS 

nciH 2,nsKP 

DDB 2,nSKP 

noB 2,nsKp 
noB pi,nsKP 

RIB l,nSKP 
SUBto i,/,SZR 
FHALT 
LOOP 

SETUP 
SUB r^fTt 
LOA ?,BIT1 

nor 2,nsKp 

DOC 2,DSKP 
DCC ?,DSKP 

nnc r/i^nsKP 

Die l,nSKP 
RUB*« l,0,S7R 
FHALT 

Lnnp 



JSPECIAL TEST FOR 8291 
nC PACKS, SET POSITION 2 
> tPIM OD IN FACH PACK WITH 
13 SIJCCESSIVF LOADS, THEN 
rLHAD ZEROS. MARGINAL 
JPACKS IwTLL HOLD A "1" 



fTFSTIMG CA 

|ACi?l»GnOD 

rACl"BAD 



REGISTER 



fSPECIAL TEST FOR 8291 
nC PACKS. SET POSITION 4 
» (PIN 2) IN EACH PACK WITH 
>3 SUCCESSIVE LOADS, THfN 
ILOAD 7ER0S. MARGINAL 
»PACKS WILL HOLD A "1". 



ITESTING CA 
» AC0«GOOr 
» AClnBAD 



REGISTER 



JSPECIAL TEST FDR 8291 
lie PACKS, SET POSITION 8 
I (PIN 12) IN EACH PACK wITH 
;3 SUCCESSIVE LOADS, THEN 
a^AD ZEROS, MARGINAL 
»PACKS WILL HOLD A "1" 



ITESTING CA 

|AC0«6OOD 

IAC1«BAD 



REGISTER 



ISPECIAL TEST FQR 8291 
lie PACKS, SET POSITION 1 
I (PIN 5) OF EACH PACK WITH 
13 SUCCESSIVE LOADS, THEN 
ILDAD 7ER0S. MARGINAL 
IPACKS WILL HOLD A "1". 



ITESTING DISK 

lACJ^sGDDD 

lAClaBAD 



ADDR REG, 



A WfPl .MAIN 



IMS33 


»^(?6?41 A85: 


SFTUP 


•/lft."^4 


1 PI24WPI 


Sti« <^,iy^ 


iM53b 


i/i3pili?> 


LDA 2,RIT2 


iM53ft 


i/7?tJici3 


HOC 2,nSKP 


t- ^h?,7 


W7?.PI3.TI 


^■QC 2,nsKP 


;M ^4^ 


1/7 .3 "3 3 


nrc 2,nsKp 


t^ 1 5 4 1 


n6'3vV3 3 


nnc «,nsKP 


V \ba'^ 


I" 6 b 4 3 3 


nrr i .hskp 


'/■Ihdv'i 


JP2414 


SUM** 1,^,S7K 


'r 1 5 4 4 


i.ii^fc249 


EH4LT 


^ lfi4fi 


ii'1R?43 


1. n n p 


k. Ib4t> 


ij CI 6 ? 4 1 A 8 ft : 


SfcTLiP 


i/i fS47 


i '/^ 2 4 ;■■ i^i 


SiiH 7) , ri 


K 1 ?» "S a" 


i'' 3 '/1 1 3 ^ 


LHA 2,RIT4 


rlbSl 


^'' 7 3 i-* 3 3 


nor 2,nsf<p 


r1 f>fS2 


i.i73«33 


pnc 2,nsKP 


iM;3^3 


1^7 3 '■^3 3 


r.nr 2,oskp 


tM S *> 4 


/• fi 3 P^ 3 3 


nnc oi.nsKp 


t" 1 ?» 5 •> 


i/ iS h 4 3 3 


nif! unsKP 


Vii fi^ft 


122414 


SU«»« l,i^,S7»^ 


L- 1 S S 7 


1/. C^ 8 2 4 2 


PHALT 


(/I fsiss;- 


1^. t^ f) 2 4 3 


LOOP 


'Mh61 


i^P"e:241 A87: 


StTLiP 


/ 1*562 


1 f/ 2 4 1.1 P 


SUf^ '''.'^ 


:Mbfi.3 


ii3tM 37 


LDA 2,RIT« 


.■■156 4 


i^73i-'33 


Dor 2,r)S<p 


'.'I'ifis 


i'73P33 


nnc p.nsKp 


'/: 1 h 6 


i^'73'^.^3 


nnr 2,nsKP 


i^1f)*i7 


it 6 3 f>^ 3 3 


nor tsnsKp 


TM^Ti-i 


i^«(S433 


nic i,nsKP 


« 1 S 7 1 


122414 


''ii'B*' i.vssyw 


'/'lf)7 2 


M 1/ <? 2 « 2 


FWALT 


(.:1?>7 3 


(^ p b 2 4 3 


LCinp 


P! 1 b 7 « 


'12/147 Hi; 


in A ci.KnnH 


S'l 1 J> 7 D 


w 4 1/' 4 (/> 3 


ST A ^,Pl,l 


flS7f> 


1/1 2 4 1 4 1^ 


LOA l,C252«i 


.^1S7 7 


P»f>24Pi 


SETP1 


f: 1 n ul 


ti^opiwti ^1 . 1 : 


DPB 1,(^ 


v^lfiCaj 


^^1433 


DIR P!,nSKP 


(116P12 


12241'S 


SljHa 1,«),SMN 


i/116M3 


•M^b?A'? 


FhAtT 


/'lftl?l4 


0flft243 


LOOP 


'/ 1 ^ P" 5 


vMti773 Bl,2; 


IS7 Pl.l 


iM f> f" fi 


t^'2t5 7 72 


LDA P,B1,1 


1^1 f^t'«7 


!''i3C^123 


LHA 2,C77 


t/r 1 6 1 f 


1434^.5 


AnO 2,i;i,SKR 


I' 1 b 1.1 


ii il i/i 4 M S 


JhP «2 


^1612 


1^3^11 54 


LDA 2,CDSK 


t^ 1 fi 1 3 


14241? 


5UR« 2,i^,SMk 


t/ 1 h 1 4 


■^ ^ 'A 7 7 1 


JhP R I , 2 


i'M b 1 5 


ifiPiiATb?. 


JMP BUl-1 



JSPECIAL TFST FOP 8291 
tic PACKS. StT PO.SITIOh 2 
; (PIN 0) OF EACH PACK WITH 
f3 SUCCtSSIVF LOADS, THeN 
UnAn ZfcPnS. MAPt7lNAL 
»PACKS i^TLL PETAIN A "1". 



; TESTING DTSK 
; ACv^sGOQn 

; A CI s 8 A ri 



ADOP «FG. 



fSPECIAL TFST FUP B2<9l 

nr PACKS, stT PnsiTin^. 4 

f (PJNi 2) OF EACH PACK yJITH 
;3 SUCCESSIVE LOADS, THEN 

;LnAn 7fePDS. mapginal 

JPACKS k^ILL PfeTAiN A "1", 



> TESTING OTSK 

; ACi^jsGnon 

; A C 1 a b A D 



AODR RFG, 



rSPECIAL TPST FDP 82Q1 
fit! PACKS, StT POSITION b 
i CPIM 12") OF EACH PACK ^-ITH 
»3 SUCCESSIVE LOADS, THEN 
JLHAn ALL 7EPaS, MARGINAL 
rPACXS WILL PETAIN A "1". 



fTESTING niSK 
; ACtisGOon 
f AClsHAD 



ADOW REG, 



fCHECK FOw ILLEGAL 
fDFVICE SELECT 8Y 
;niSK PACK CONTROL 
fPFWFDPM "DOR" TO EVERY 
;OTHFR DEVICE ADDRESS 
;ANf) CHECK DSKP 
;EACH TIMf. TO SEE 
;IT PECOGNIZED THE "DOB" 

;Cn()F FROM HERE ON IS 
;E0R INCREMENTING TO 
}NF)(J DEVICE APDPESS 



A ri/?p 



.^AT 



/ 1 »> 1 7 (1 ? 1-1 ':^ 7 P" 

■^)K?i v\ f> .s 4 ;s >^ 

r.M f> ^ «^ 1* i-^ h ? n :^ 

/ 1 ^ ? >s '' 0" h ? 6 :s 



HP ' 



./ 1 b ? 4 

..' 1 n ? h 
'/ 1 ^ ? H 
..•1^P7 

'.< 1 ^ .■^ ^ 

I- 1 h :u 
1/ ib:^2 



:■• CI ft i> 4 1 

I • ? ,"/ 7 " 

'■< ^ '/. ? >i .■'■ 
1 ei .i ?^ :s :* 
,.1 p e ? ^ >^ 
vtpeiPrt;^ 



:/ 1 h ,U 1.1 n 8 P 4 I 
I-' 1 r ? 4 <•■> ? 'I !? 7 r" 
K 1 h ,"^ ^ ■ 1 h 11 .s :^ 



R.5: 



P4: 



iM b 3 b 


ifi?«S77 




iM ^ 3 7 


•163^3?^ 




V-' 1 h 4 1- 


i.-' w 6 2 b ;^ 




> 1 H41 


■ 1 !-i 1^ P n ?* 




/ :hA2 


1' (.' ^ ? 4 1 


"*>: 


!' 1 «^ 4 ;^ 


i.^ h 4 4 sj :^ 




, 1 r 4 fl 


! , P / P 1 >i 




.■ 1 b 4 b 


3 f 7 4 •-" 4 




i^ 1 <S 4 n 


i'(>f=<P49 




•/ 1^47 


"■i.'h7 4^ 




i ■ 1 "^ *> I''; 


i.'?t^?4\ 


'^ft: 


.'Ih'il 


\l^2i't V' w 




-if^"^;^ 


■/• ft 2 <■'' ,5 /^ 




:M ^Bi3 


:-' f> .^ ?-^ .*< ^ 




.-> 1 f- *> 4 


^1 ^ 4 4 .■^ ■* 




V 1 *- S h 


;., ;? /, ? ) « 




■/ 1 ft'^h 


1 r;! 7 4 1 4 




'/ 1 ^ "^ 7 


ii C* h P 4 P 




i'' 1. fi fi 


.1 M ft ? 4 > 




.1 1 h P 1 


;.i i/' H p 4 1 


H7: 


/ 1 ^ ^ < 


; 1 ? ;.i « 7 c» 




/ 1 ft f^ .'5 


r, ft 11 i .-^ 




/ ) *> 'S 4 


(^ P 4 4 :i ?^ 




,1 1 Dfi'S 


i-'?;''C»/l 




CI '^Rh 


1P341fi 




I' 1 t- P 7 


'.'.t'hPS.'^ 




..' 1 fi 7 '^ 


/ f ft P 6 .■^ 





?t-TliP 




If, A 7, 


n 1 / M '? 


HfAS V, 


i.DSKP 


<iK PhN 


nsKp 


PhLT 




L (3 n p n 




SI- Tup 




1 f' A '^ , 


r: 1 f ', 1/ r» 


n i. 1 & s / 


i.D'S.kP 


f'lnc !: 


;skp 


SKPr7 


nsKk 


Fhlt 




Lfinpn 




ShTljP 




Li' A -\ 


, r ). i?i i-* « 


nriAS i 


, , U S K P 


Ki'^ST 




SKPh7 


nsKP 


FHI.T 




l.r,n(jr> 




«!: TiiP 




nj A 1 


, I'l.SKP 


1 . r 4 1^ 


, n ,j ft u* ',^ 


6^:^ ''■ 


, 1,S2^^ 


FHAi. r 




1 (:np 




<iHfP 




A r r. •^ 


, (' 


n ( ■■ f^ '.^ 


.nsKP 


'Hj C ^'' 


, n s K p 


nji 1 


, ObKP 


1. 1 . A ' i 


, Oft.'!'' 


LtJ-'tt 


/, l.S-'k 


FhALT 




L f ' p 





Sf TlJP 

L n A p , r. 1 (■^ I ' 1 
n n 4 s ;■'■ , 1 1 s K p 

f^l 4 1 , IVSKP 
I 1.) A I''' , X H S 
A ^, n t( 1 ,;),?; M K 
K H L T 
I riPPO 



;srt IF fs) PULSF. will set 

;"nP HliSY", START A 

? S F t K 

fSKlP IF "HP BUSY" 8 1 

jCWfTK "HP STAPT", "DP HIJSY", 

} " s f; L *=< " ri r. G a y f . 

;SFF IF fC^ PULSF WILL CLtAk 
r'OP BUSY". STAWT a SEhK, 
; T H F N, C L F A w 

. f H (- r K " r L F A p " 



;SFF IF rnPST WJLL CLFAk 
;»np HUSY", STAPT A SFFK 
J THFKi CLtAP IT 

rCHFCK "PtSFT", "CLEAP" 



;CHF;rK t'^ iNSuPt that 

?ALL SFfcKIMK FFiS AHF 
JCI FAkPD HV TiiPbT 

;ArispAn sFhKiMi; 

J STATUS rwHM OTA, 
JTHFCK DATA THPlj MUX 

fCHFCK FPW PRfjPtW 
fplPIlT OF STATUS TWKU 
;THF mulTIPLF xrH\S TO 
;THt DATA «I.ISS on GATt-S 



S S F t K I M [; STATUS i-J 

;ALL SHniiLH Pt ZF.Rn, CACn'STATUS 

fjPV yn SFT "SFtKING / " 
;VTA CS) HliL«fc 

>"np STAPT" StTS "STAfeT" 
fTHFTK "ADAPTfcR StL", "SFFK" 
»AMl) "STAPT ShFi^" 



A PI (/ ? 3 .MAIN 



tM671 


l^C«6?41 


4^1072 


l/tPUCi?!" 


f 1 7 .^ 


P61333 


i^\h7 4 


(,t?4M71 


C^lf>75 


i^ P « 4 3 3 


fl 1 6 7 b 


1?3415 


iH^77 


P f^ 6 2 5 3 


i/.[7 9'.tA 


HPIft?63 


^1 7fil 


I' C! 6 ? 4 1 


i/ ) 7 c^ 2 


i.-!?t>"'7W 


i-^ 1 7 w vJ 


;-^fil333 


^M ; f^ 4 


■>^ 7 ►I 4 33 


^-M 7 (^ b 


i^?i1!^7l 


CM 7 ti e 


i-^ 2 4 2 1 « 


■•'17 5^7 


1 4 7 4 i^ M 


/■ r 7 J ti 


IP2414 


iM 7 n 


t^"ifS?53 


/' 1 7 1 ? 


t'PiftPbS 


^' I 7 1 .^ 


n 11 b 2 4 1 


•> 1 7 1 4 


''2[^P'54 


i-M71fi 


i^63C^33 


(M, 7 1 6 


M2i^C7'^ 


(M 7 1 7 


'■lfil333 


tM7?i^ 


'1 7 f/ 4 3 3 


f 1 7 ? 1 


H2421fi 


tM 7 ? 5? 


i^?i^<^70\ 


tM73v} 


1 4 7 4 1^ M 


t-M 7 ? 4 


122414 


/17?S 


t' 5*6253 


iil7 2h 


f')Wf>263 


«17?7 


iiW(S2 4 t 


►M7 3'4 


1PI2«2CJ1 


C1731 


Kfi3P'33 


^173;^ 


v^2l^Pi7c» 


kM7^.i 


1^61333 


t^l734 


C^70433 


^\7^b 


P124216 


/117?6 


0121-1 PSb7 


01737 


1 4741^(71 


Ml 741/1 


122414 


iM 7 4 1 


0P'62S3 


t^l74g 


l/iPlfe2b3 



Rb: sftup 

IDA TIjClPlpiPI 
DDAP H,OSKP 
LDA 1,K85 

niA i^,nsKP 

EHLT 
LOOPn 

«9S SeTUP 

LIU 01, CI PI 11 91 

nnAp i^.DSKP 

DIA 2,0SKP 
I. n A pi , K B 5 
LDA 1,C361U^ 
AM") 2,1 
SMHft l.i^,S7« 
fHLT 

Lnnpn 

Blfl: SF.TUP 

LDA "l^Krtl 
HOC ?i,nSKP 
LDA Pt , CI tl n PI 
noAH M,0SKP 
niA 2,0SKP 
LDA l,C3fit*ri 
LDA C^,KH6 
ANiH 2,1 
SllBa 1,1(^,S7W 
FHLT 
LOnpn 

Rli: SfcTiiP 

SURZP ?!,« 
HOC i^,nSKP 
LDA !7l,Cl?f1P» 
OOAP 0,OSKP 
niA 2,f)SKP 
IDA l,C3fii!il7l 
LDA Pt,KB7 
AMD 2,1 
SUPa l,v?,S7R 
FHLT 

LDnpo 



FTRY TCI 
;wITW A 



SET "SEEKING 
(P) PULSE 



H" 



»CHECK "np inp" 

»SFT LINF TO "START" 



ICHfeCK IIMIT 

istart umit 
jano vfrify 
jothfr unit 
jac2bstatus 
;acixbao seeking 
;ac0sgood 

»CHECK UMT « DECODtR 



SELECTION 
P' SEEKING 
THAT NO 
SfcFKS, 
nURING SEEK 
STATUS 



»CHECK UNIT SELECTION 1 

» start unit ) seeking 
>and verify that no 
»othfr unit seeks, 
;aC2«status during seek 
;aci»hao seeking status 

f ACMsGOOn 

fCNfcCK UMIT n DECODER, 

>"UNIT 1", AND "SEEKING 1 " 



;CHECK UNIT SELECTION 
JSTART UNIT 2 SEEKING AMD 
»VFRTFY THAT NO OTHER 
JUNIT SEEKS 

JAC21STATUS DURING SEEK 
;AC1»8AD SEEKING STATUS 
> AC0»GnOD 
;CHECK "UNIT 2", 
;"SEFKING 2" 



A !^^^?A .rMK 



i'1744 klPM^'^ifi LHA 3l,r:i4t:K 

i^l745 i''ft3'^.*3 nnr pi,nsKP 

/ 1 7 4 ft ii ? i^ (^ 7 yi L f ■ A PI , CI c^ t^ ^'^ 

',"1747 Hfil^iv"^ nnAP t*,i}SKP 

/I7?w ^7i^A67i niA 9,nSKP 

i<"17?>l M?4Plfi LI.jA ) ,Ci^V,0^ 

i/'WfS;; .i?t^^fl6fi LHA P'.KrtH 

frJ7?>3 1474(^W AMD ?,1 

t:'l7S4 1?24J4 SliHtt J,t',S7K 

v^l7S5 y"'/'b?b3 FHLT 

tM 7hh iK/.h9h:^ L nnpn 

r/^1757 ill^'bP^il Rl3: SfTUP 

yil7fti/' lP2SJ'-'=' SliHZL ?fP 

!,5l7fil i'iP6?35' SSP-'tK 

P17«2 !^PM9^3 MI^C DSKP 

(/i17'^3 i'i?('iC»7l LIJA (^,Kn5 

1^1 764 i'i(«44:s3 ni A 1 ,nsKp 

vl7ft^ lt^.74^t4 AMD -^ ,\ ,^l'^ 

(.;17«6 f'iP'6?b3 EhLT 

r/, 1 7 fi 7 i^ w ft ? h 3 L n n p n 

i"l77w v^Wb?41 Bl4; SfcTliP 

If 1771 H^i-^Citif IDA ?,i<Hl4 

i/\77V. /Pb?3P' SSFf:.K 

1/1773 nfici?33 MT.nr nSKP 

f'' 17 7 4 i,i ? (^ f^i 7 i-^ L n A « , K H 6 

I. I77h .ifi44:A3 ni A 1 ,nSKP 

utl77h lf»74ifl4 A^lt1 i»,l,S?o 

t/)1777 !lM69L->3 Fh|,T 

t* ? (,1 (/! f/i (;i r« 6 ? (3 3 I rjnpn 

{^7>'AtA\ ^iP6?41 R15: ShTljP 

i^'?\/ii^2 I'.S/Miil LC'A ?,KH13 

t'?i;-w3 i^0(5?3P S.SFEK 

tipWC-M fiPC^?33 ^iinc uskp 

C ? W <? 5 i.^ ? t" P" ^ 7 I. n A f^ , K t« 7 

;/(?i>if"h '.1^44 33 HIA ),nSKP 

■/i ? /i C^ 7 1 M 7 4 1^- 4 A M '1 , 1 , "^ 7 f 

v-,?i.ilui •/cit>?S3 FHLT 



rCHtCK LIMIT 

jstapt unit 
;amd verify 
;othfp u^'it 

; AC^sSTATiJ? 
tAClsBAC SEtKIMG 

; AC0«Gnnn 

»CWECK "IIMIT 3", ANO 

»"SfcFKiKr; 3" 



StLECTIUN 
3 StFKlNK 
THAT Ml 
StfcKS. 

nuPiMr, SFfx 

STATUS 



rCMfcTK THfc "CLtAP" 
JPFSFT OF "SFbKiNC, ^", 
;STAPT UNIT c SEFKINR 
JlSSUi- (C) PilL^t 

;rFAD STATUS 

; " S F F K I f- G f^ " HIT NOT 

JCI,EAPFD bY fC) PUUSF 



rCHECK THE "CLFAP" 
;RFSFT of "SFtKIKiG 1" 

rsTART unn 1 <;eFKTNr,. 

J ISSUE Crj PULSE 
jpFAn STATUS 
J "SEEKING 1" BIT MHT 
fCIEAWED BY CO PUI.SE 



fCHETK THE 'TLFAtt" RESET 
»nF "SEEKIML, 2", 
ISTAPT UNIT ? SEEKIK'T,. 
J ISSUE (V.) PULSE 

;pFAn STATUS 
;"StFKlNG ?" t?TT ^0T 
fPFSFT BY (O PULSF 



* (,■•■ ?h .MAIM 



-ip.ilZ 


MMh?4l B16: 


SfcTUP 


(/?fM3 


H30PI62 


LOA 2, KB 12 


!/• 9 i^ 1 4 


{>Pi623til 


SSFEK 


t'-PPMS 


t^(SH233 


Mine: PSKP 


I' 9 1;-! 1 6 


in2Pi"f>6 


in A P,KB8 


i/<?i^l7 


0* 6 4 4 3 3 


niA i,nsKP 


(/■?r-i?^i 


lC174i^4 


AND i^ , 1 , S Z » 


t^?^?l 


Wl^62!53 


FHLT 


■.■!?n?2 


v*yie263 


l.nnpn 


n?t-!?3 


C»2!^lbt Rt7: 


LP A c>,NI)SKS 


f>?1^24 


1P'1?C^3 


MnvK ^,i^,SNC 


v1?il2fS 


^WH4t^7 


.tmp hip 


i/'2i^?6 


■:^06237 


JSP fIStT 


'/:P'^?7 


t^rih23l 


PfeCLi^ 


^7'/>li'A 


1-1 2 1^ 1^ 5 4 


I. HA "I,KH1 


V ? CI v^ I 


123415 


ANiDii l,t?,S*'JH 


i/i?m32 


i/'r»6253 


EhI.T 


^.p^^?,^ 


;1 pi h 2 ^ 3 


L D fi P 


•7i2fi3 4 


^•.12(41 bl RIP: 


IDA P^NidSkS 


i';?i'i3S 


Jffl IglTlffl 


M V H il , i/i 


^^ 91-136 


itn2"^3 


MOVK v^,i^,SMC 


(.'?'/37 


i7!Wti,i4l"7 


JMP PJQ 


,i?fi4i') 


i.iMb2 37 


JSP »IStT 


{-1 ? (<< 4 1 


f-* ? ^ 2 3 2 


PFCl. 1 


/?f4i? 


t' 2 i-^ i* 7 4 


L. f) A r-" , k p 2 


M?M43 


1234 is 


A^:^a l,i^,SMH<f 


i,! 2 ii 4 4 


i^cnh2&3 


F.HLT 


i'2''i4b 


i''C^«S243 


Lonp 


k^ 2 CI 4 b 


■'''2?<isi «iq: 


L.nA 9",N0SKS 


r'^ 2 ?> 4 7 


i^24f?'ft1 


LUA l,Kril3 


t-' 2 5^ ?) V"' 


12341^5 


A K n 1 , (^ , S M P 


W2ti51 


M P i1 4 It" 7 


JMP R20 


fr*2v'52 


C»Pfi237 


JSP OISfcT 


^'2P^53 


f/)tib233 


eFrL2 


i^i 2 .:i 5 4 


i/i2c/iPl7 3 


in A Pl,KH3 


i/.?!;i«ift 


123415 


anjD« i.t'^.ss'W 


P'' 2 i:^ f5 ti 


i'10ft2b3 


PHL7 


t>i2>'!S7 


iM^fr2 43 


LOOP 



tCHECK THt "CLFAR" PFSET 
;nF "SFFKIWG 3" 
JSTART UNIT 3 «!EEKlKiG. 
nSSHF (CJ PULSE 

JRFAO STATUS 
;"SEFKlNr, 3" BIT NOT 
;CLEAPFn HY CO PULSF 



{ATTEMPT TH DriTAlN 
»"SEFK DHME »'• FROM 
;A RECALIBRATE 
; (skth ovep TF 
>HFCAL UNIT K 
; AClsSTATUS 
;"ATTENH" nin KiOT 
f'SfcFK nONF P" 



NO UNIT i^O 



SET 



;ATTFt^PT TO OBTAIN 
f II 5 p p ,< D n hi F I " FROM 

;A RFCALTHRATt 

; (SKIP nvtP IF NO UNIT 



n 



Pt^FCAL IJMIT 1 

; AC1«STATUS 

f " A T T E •'1 1 " 010 MOT 

r'SEEK nONE 1" 



SET 



JATTFMPT TO nbTAiN 

;"s£fk donf 2" from 

;a pfcalihrate 

j [sx tp over if no unit 



2) 



;«FCAL UNIT 2 
» AClaSTATUS 
f"ATTFN2" nin NOT 
r'SEFK DOnF 2" 



SET 



i'A I, 5> f> 



iilK 



. ? vi »^ I ' - p I' 1 ^ 1 P ? !/ : 

■ P /. f^ I v" ? 4 r." H •;> 

9 u- f> .} ■' M [/1 4 '/• 7 

? t' P 4 ' ■ r^ h ? 3 7 

1 ? V M 7 1 9 ,5 4 1 S 

' ? i' 7 :i ' > :/ 1''. ? b 3 

' ? C/. 7 1 I'' '-i h ? d .'^ 



I. PA 1,KLM? 

A N n t , !■' , S M P 

J MP P21 

JSP *ISLT 

l(iA '•'.Ktid 

A ^ f'' » I , I'' , S M K 

f-" H I, 1 



fATTFf^PT TO riBTAlM 
f'StFK UHNF ?" FROM 
>A RFCALTHRATt 

; (SK TH nvt'? TF NO unit 



A) 



J w F c A u 1 1 Ki I T y> 

I A n 1 s S T A T LJ 5 
>"ATTtM>i" FATLFD 



Tn StT 



t ?/7,i .v^hl n7 



TfioST 

I n A 9 , r t3 

WATT 



jniSK ORIVF WILL MDT TAKE 
?5MCrF.SSlVF C-tCALlHPATFS 
;pn A DFLAY 



/.?r77 ii'-.i.M."7 
v.?lWvi ••('1b9v^7 

. 9JHf^ -Pnpd;^ 



LOA P,Mi;SKS 
MflVK M,i',SMC 
,1FP M^)? 
vISO »I.'5hT 

w e: r. i '^ 

LI) A r«,Ko5 
A^;n« i,!;:,,S7K 

F rt l. T 



;SFF IF "SFEK nONE ?" 
;t*TLL RESET "SFtKIMG n" 
; CSK Tp IF KO IIMIT t^) 

;«FCAL LIMIT r' 

; ATlsSTATUS 

;"SEFKTNn £?"• bHDDLn RtT 

;»FSFT HV "SEEK noNt t^" 



i' 9 1 n ; 1 r/! J p /, II 

. ' 9 11/ i ( ' 1 9 1> 3 

.'-9111 '•'• i'^ P 4 n 7 

,1 7\\? >■• '" 'H 9 o 7 

.'911.^ l■M^9.•^P 

r-^ 9 n 4 i-- 9 1; (/< 7 

/'9nh 193414 

.■•911b ".(5>69b3 

I 9117 /■C-'e94 3 



Li/ A '^MuSkS 

Mnvf« i^. ,n 

M ( I V H 1/1 , .-! , s M r. 

J 5 W « 1 "^ t T 

R E r L 1 

L f) A '/I , K H f" 

AMI1« 1,/',S7K 

F H I.. T 

I nnp 



fSFE IF "j;FEt< f'U^E 1" 
;W,TLL PESET "SEEK IMG 1" 

f (5K TP riVER IE NO LIMIT \) 

rPFT.AL yilT 1 

J AC! sSTATLI«5 

? "SEEK T MP. 1" SHfjULH Ri-T 

••RESET HY "SEEK DOME 1" 



A P»i-^?7 .MAIM 



/PIPCI 


t^Pi^lbl P23: 


LDA Ci,NDSKS 


p-' ? 1 ? 1 


i/iP4i^r»i 


LDA 1,KB13 


i^pl?? 


lPvJ4ii«> 


ANn 1,C1,SNP 


-"^ P 1 P 3 


i/t (? n /I ui 7 


JMP B24 


." P ! ? 4 


;^i^6P37 


JCB «!S£T 


y-21?b 


".C"62vi3 


RFf:L2 


," P 1 P »=> 


i^?H(^ft7 


l.nA M,KB7 


r- ? I ? 7 


12 3414 


AM'w i,«?i,S7H 


I'.? 13.1 


■:1 P h 2 1) 3 


FmLT 


'' P 1 3 I 


•-'0624:^ 


Lonp 


i"Pl3? 


''Pi''! 151 R24: 


LOA f^,M05KS 


V?IM 


:i24P'ft2 


LDA 1,KB12 


v' ? 1 :», d 


I?i4i'S 


AKiP l,r,SNE? 


■'iPl35 


i^ CI H 4 / 7 


JMP «2S 


ePiAfj 


" C' b 2 v'^ 7 


JSk «eiStT 


i-P137 


■1 Pi ^5 2 3 4 


RECL3 


i^?14i/. 


^1 2 C t*! *> « 


LDA (^,KB« 


^PUl 


1P3414 


ANn« 1,H,S7R 


i-Pldg 


i/M6Pf)3 


EHLT 


i^ P 1 4 3 


1 ' ? 6 2 4 3 


Lnnp 


t' ? J 4 4 


'f<2f77 R2?iS 


ItiRST 


:- ? I 4 S 


..^3t'173 


LHA 2, CI 5 


rP14h 


i»^ CI 6 P 2 7 


*^AIT 


/P147 


MptMSl 


LOA !^,NIJSKS 


i.?l ")•/ 


1 1'^ 1 2 1* 3 


MOVR i?i,;'i,SMC 


;^P1'>1 


CiP'i/4 1 1 


JMP R26 


r^Pl-ss 


/iPft237 


JS» •IStT 


CPISJ 


■/iPfi231 


»tr.Lt^ 


;•' 2 1 5 4 


ii 2 ?< c^ b 4 


LDA 9^,<Bl 


f'Plf^S 


{':61W33 


nnA i?,nsKp 


v^?l56 


"!f»443:^ 


ni A 5 ,nsKP 


:''?l'>7 


1234 14 


AMnn l,i'',S7K 


I- ? 1 ft i-i 


'■'1 « ^ P S 3 


FhLT 


r P 1 ft 1 


;' 1^ e; 2 4 3 


Lnnp 


i^Plf^P 


'^2r(ilSl Rgfr: 


LOA 'TijNJOSK*) 


p ? 1 p :5 


1 1^ 1 2 t'l l» 


MDVK H,t1 


C^ 2 I 6 4 


1CI12H3 


•^rVK f'i,H,SNC 


i^PJfiS 


[1 5* w 4 1 1 


JUP B27 


r^ ? 1 fi 6 


6^C>?iP37 


JSP fIStT 


i-' ? 1 '^ 7 


w(^e>232 


PF.CLl 


r^ 2 1 7 t_i 


I,'' 2 ti 0^7 4 


LDA 5^,KB2 


C^ P 1 7 1 


c*fil!?'33 


noA M,n5Kp 


t^' ? ) 7 2 


('! fi 4 4 3 3 


DIA l,nSKP 


S'. P 1 7 3 


123414 


thintt 1,1/!, S7f* 


i/i P 1 7 4 


1-1(^6253 


EHLT 


('2175 


H P ^ 2 4 3 


Lnnp 



fSEE IF "SFEK HOME 2" 
;wlLL RESET "SEEKING 2" 

i cskip over if no unit 2) 

»recau uwit 2 
;aci«status 

f'SEFKlNR 2" SHOULn GET 
»RESET BY "SEEK DONE 2" 



fSEE IF "SFEK nONE 3" 
fi^lLL RESET "SEEKING 3" 

; (SKIP IF NO UNIT 3) 

»RECAL UNIT 3 

f ATliiSTATUS 

J "SEEKING 3" SHOULD GET 

JRFSFT VIA "SEEK DONE 3" 



IDISK DRIVE WILL NOT TAKE 
JSUCrESSIVF RECALIBRATES 
fwAIT 1,3 SEC 

fATTEhPT TO RESET "SEEK DONE 5"" 

»wITH "DATDA" 

fS^IP nvFR IF NU UNIT PI 

»SFT "SEEK OONF pi " VIA 
»WECALIBPATE 
lATTFMPT RESET 
>READ STATUS 

r'SEEK DnNF (?!" RESET FAILED 



fATTEMPT TO RESET "SEEK DONE I" 
;wITH "DATOA" 

r (SKIP nvEP IF MO UNIT n 

>SFT "SEEK DONE I" 
IK.ITH A RECALIBRATE 
»ATTEMPT RESET 
»HEAD STATUS 

I "SEEK DONE 1" RESET FARED 



A C^.lPh .MApi 



:^?\7t^ 


',.1 2 ti 1 S 1 


:/>?\77 


l/i94P'61 


Vi??.(^'/> 


l234'/'5 


'/'P2P1 


i^(^i^41 1 


i--" ? 2 C" 2 


i/' M 6 2 3 7 


/92i^a 


i^ C h 2 3 3 


^?2M4 


/ p 1,1 c^ 7 3 


■/i22(?>b 


Pi 6 1 f 3 3 


i^pav'b 


i^ 6 4 4 3 3 


/?2v*7 


123414 


H?21t/^ 


t»Pib2b3 


•/?211 


L' fi h 2 4 3 


v^2212 


y* 2 f') 1 S 1 


^■??13 


i'i24C^b2 


»i?21 4 


l?3 4/'5 


r'221& 


(.' (:^ ',1 4 1 1 


'/?21ft 


i'P'h237 


02217 


'/ « ft P Ji 4 


i^?22c'' 


'^7i/'."^7P, 


"^2??1 


^. M r" 3 3 


1/2??? 


>;» fr 4 <1 3 3 


''7??6 


1234 14 


i''?2?4 


/.0b?b3 


i-'922a 


vipib?43 


i/???b 


s/i2f 1 bl 


" ? ? ? 7 


1 CM 2 ij 3 


^■.?2 3.^ 


tA'^'AAi 1 


I/2231 


MM6237 


t"2?32 


C^nb?3i 


i>?233 


A ?<,)?'> 4 


0^2234 


ii(S 11233 


1/^2235 


(<i f> 4 4 3 3 


(.'2236 


1 ? 3 4 1 4 


"i??37 


t^ C. f * 2 h 3 


f/224i'^ 


kH'i h 2 4 3 


/2241 


,'>2 7'\b\ 


■,^2242 


1 (5" 1 P I/- >5I 


."2243 


1 P* 1 2 1^ 3 


/ 9 2 4 4 


,^ t^ M 4 1 1 


M2245 


f. (^ b 2 3 7 


^?24iS 


l"06?3? 


t^2247 


li2i^P"74 


'/?2!S'/ 


f'iei/i233 


C'2??^l 


14 ft 4 4 3 3 


«1?2'52 


123414 


■/9?53 


11 1^ ft 2 b 3 


;i 2 2 fS 4 


f/i C* 6 2 4 3 



R27: LO*^ r:«,NriSKS 

LHA 1,<H13 

AND 1,7,SKR 

Jf-P n2« 

JSP *ISkT 

LDA ';i,Kd3 

no A vi,nsKP 
niA i,nsKP 

A M f) ti I , 1^ , 5 7 k 

ehlt 

LPHH 
R 2 P : I- n A ? , M D S K •* 

in A 1,1^1^12 
it^ri } ,'^ , SniP 
JmP f*?.o 

BFrL3 

L (i A (^ , K H 4 

nriA 7i,nsKP 
njA 1 ,nsKp 
Af^na 1,«1^S7^< 

1. n n p 

R 2 Q : L I ' A ■'" , M u S K <? 

JhP H3W 

p ^_ r L P' 

10 A iTi.KHl 
NI^C nSKP 

(UA i,nsKp 
A M n tt 1 , t . , & 7 p 

PHI T 

Lonp 

R3Ci: LOA vS'-llJSKS 

M V k '..;'! , I'" 

M n V H 1^ , i<) , s '■'• c 

J N', P M J 1 

JSP «IStT 
PI-CLI 
LDA n,KH2 
Mine DSKP 

njA i,nsKP 

A K n tt 1 , '/' , s 7 K 
FHLT 

L nop 



JATTFmPT TH PESfcT "SEhK HOMt 2" 
»wTTH "OATOA" 

» (SKIP nveP TF NO IJMTT 2^ 

rSf-T "SFFK nON-F 2" 
fkiiTTH A RECALIPMATE 
;ATTF^'PT PFSFT 
JWFAP STATUS 

:"SFFk OOnF 2" i^FSFT HAJLtf^ 



JATTFMPT TO PhShT "SEtK nOMt 3" 
jwTTM "DATHA" 

J C SKIP nVtP TF Nfi UMT 3) 

ISFT "SHFk nONF 3" 
;wTTM A PtCAI.IHPATF 
.'ATTEMPT PFSFT 
;»FAn STATUS 

r'StFK nONF 3" WFSFT FAILi-O 



; A T T F f-'. P T TO I- 1 S e T " S F h K n n N fc fi " 

;wITM A fc") PiJlsr 

! CSK IP OVfP TF NO nMT t- ) 

fSFT "SFFK DHnK ■:" " VIA WFCAL 

tATTFh^PT CLbAP 
jpFAH STATUS 

;"stFK nriNiF ('" H?FSFT FAit-tn 



fATTFMPT TO PESET "SF.tK nriNt 1" 
fklTM A (C) PULSE 

» f S K T P IF M U U M I T n 

»SFT "SEEK DHNE 1" VIA PECAL 

»ATTF>'-.PT RESET 
JPFAO STATUS 

r'SEFK DO^-if- 1" WFSET FAILED 



A tA.i7 9 .MAIM 



/>??bb 


i^PiMbl 


M??56 


!^24Pi6l 


^?8S7 


1234M5 


•^?2f>'y\ 


i^OW^l 1 


P?2«l 


0^16237 


^??P2 


/l''6233 


^?2<S3 


i,'!2i^Pi73 


H?2P4 


Pi6w233 


^?J?6f5 


Mfi4433 


!?:???!& 


123414 


i'9'/(^7 


t!Pi6263 


V'??-7i/' 


«C^6243 


t^?£7i 


^•Pi^j 5i 


/i??7? 


i'24r»fj2 


^^?27A 


1234'? •> 


^?274 


i.i(1M41 1 


i^?27S 


4^(16237 


fr'227& 


t1 016234 


1^2277 


i^2i''!*72 


CP^Piti 


v^fiM23a 


£i?3t^l 


■164433 


f/i9 3P'2 


12341*1 


P23M3 


fe'r»6?b3 


i;i23i;''4 


M t* b 2 4 3 


V'23Pb 


•/iRb241 


/. 2 3 ti b 


''^64433 


t^?3'.i7 


iyi2fi2(?i 


•??v-^1P 


11^7414 


^^2311 


fi»6242 


«P312 


!1CC^243 


t'?313 


l^Plb241 


w 2 3 1 4 


i^ 6 4 4 3 3 


P'PSlfJ 


vi2t.M7S 


|^231h 


123414 


H2317 


i^PI6242 


i?2320 


/'PI6243 



R3l: LOA t*,M)SKS 
LDA l,Kbl3 
AKP 1,PI,SNR 
JMP B32 
JSR *ISET 

PfcrL2 

LHA ?l,KB3 
Nine ORKP 
OIA l,DSl<P 
AKD«* 1,1^, SZR 
FHIT 
LCinP 

B 3 2 : L P A W , M 1" j S K 5 

l-nA 1,KB12 

JMP «3S 
JSP •ISfcT 
RtCL3 
LDA PI, KB 4 
NIOC DSKP 
niA l^nSKP 
AMHO 1,0, SZK' 
FHLT 
LOOP 

P35: StTLiP 

niA i.nsKP 

SLiRZP <^,^ 
AKn*> l?i,l,S7P 
PHALT 
LOnp 

B36: SETUP 

niA i,nsKP 

LDA !?t,C3P> 
ANDW l,i,^,S7f< 
KHALT 

Lfinp 



MTTEMPT TO RESET "SEEK DONE 2" 
fWlTM A fC) PULSE 

I fSKiP OVER IF NO UNIT 25 

>sf.t "sefk done 2" via kecal 

;attempt reset 
.'read status 

M'SEEK done 2" RESET FARED 

JATTFMPT Tn RESET "SEEK DONfc 3'' 
fi^ITH A (C) PULSE 

t (SKIP OVER IF NO UNIT i) 
rSFT "SP-FK HDNiP 71 It V/TA UPTAI 

>ATTEMPT RESET 
tRfkn STATUS 

;"SEFK DONE 3" RESET FAILED 
JIDLE STATE STATUS CHECK 



>R/l^ DONE 



/IDLE STATE STATUS CHECK 



fADDR 1^9 OR EWD CYL 



'•^ /. ? .1 



;-! A 1 ! 



- O.SOX 


,iMh9d 1 


'/7h'>'> 


I', f^ d 4 ^S .1 


t'?;^?>i 


j9i"^M 


'-• '??s'?ii 


lt^7^!14 


V767^ 


'(^ pi 9 49 


» 9 .5 ? n 


/ 1/ h 9 d -^ 


i>?3?7 


,1 P ft 9 4 1 


,.?i"^v, 


< H 4 <l vS >"^ 


;^?«i?l 


.1 9 iM 1 7 


V- 9 ;s ;< i- 


19J414 


i- ? ;5 ."^ 3 


■ir*b9 49 


I ' 9 .s .^ i 


vi(;»h9 4,< 


/ ? .^ .^ ^ 


■i9o1^t 


^ 9v.">."5P 


1^^19:-■3 


■/, ? 3 y 


llM!l4/ '^ 


/?vS4!' 


. i t'* b 9 ."i 7 


I' P 3 '1 1 


■-■: I* 9 .^ 1 


■• 7.SA7 


! ■ t^K?^^ 


■'/■ 2 .i 4 ;^ 


ti f-i b 9 5 >^ 


> ? ,^ d 4 


i/ r;i h 9 4 :^ 


v 9 ;^ 4 b 


"9'>. 1 M 


■?^ab 


1 (M 9 v^ pi 


. 9 .^ ''. 7 


1 (M 9 !'' :^ 


7 9 v"< "^ ■/. 


.1 M [.1 4 I* h 


i-9>'>hl 


r<<Mr)?d7 


^: 9 >!> S ? 


yitt?:^? 


1, ' 9 :«. H 3 


,1 '-^ h 9 .^ *> 


.- 9 :j s ^ 


, i I.I r> 9 ^ .'* 


;.' 9 3 '^ '1 


:H:o?a3 



R 3 7 ! S F T U P 

ni 4 1 ,nSKP 
IDA i>,KHl3 
Ahfitt v' , I , 57*^ 
f-NALT 

I. n n p 

p 3 R : ■> I- T 1 1 p 

ni A I .nsxp 

I I- A P,C>J 

A kTi « 1 , 1/' , S 7 K 

FH ALT 

ir.np 

B3Q: LI; A ^,^'ijSKsS 

.Imp R4C1 
JSP «lStT 

p f- r. L -^ 

T T P k-^ T 
F H I,. T 
I. n n p 

H4r'' : I p A M , ^uSus 

h' [-1 V f^ i/" , i/l 

^" n V h / , i"! , s M c 

J ^' P H 4 1 

JSP «T«;tT 

PFCLt 

TJP'^T 

I, onp 



imiF STATF STATUS CHFCK 



JCHETK wnwn Ek'PQP » 1 



.•TOLF STATf «TATUS CHfcCK 



;i;ATA LATE MP K>P 



»SFE IF "SFtK nONfc t^" 
fwTLL CAPSF TNTtPPIIPT 
> (SKIP IF MO UMlT f^) 

;SFT "5hFK DHNF « " 
fIS TwFi^F An IMTFRPUPT? 
»Nn, C^tCK "TNTF.RPDPT", 
J " n P I M T k F (J " , 

JSFF IF "SFE« r^HMF l" 
;^TLl. TAIISF TNTfcPWUPT 

; (SKIP IF ^!n iiMiT l) 

;SFT "SEFK OONF 1" 
'.:*>> THFPF AN IMTtPPUPT ? 
;^n, CHF-TK "TNTFRPUPT", 
, I. n p I M T K F g " , 



1^9.^"^^ ■.■Oh 1.51 

,-7d^7 >'94i'hl 

I- 9 ^ f^ ,.■■•. 1 9 .M 1-1 "^ 

e* 9 vi ft 1 '''• I-' / 4 i.' fi 

■ •9;jft3 ^•.r''ft9v^.-^ 

.: ■ 9 3 ft 4 .u^ h p .•^ «( 

iO:^*^b /.n'ft9b>'\ 



R41 : 



t PA 

in A 
amh 
Jhp 
rsp 

PFTL? 
T T P .- T 

F H L T 

I. nnp 



'-' , *<> I) S K s 

1 , K »i 1 3 

] ,:^ , SMR 

H49 
« I S F T 



JSFE IF "SF£K noNe: 2" 
Ji^TLL CAMSF IMTEPPUPT 

; (SKIP IF MO LIMIT 9) 

fSFT "«1FFK DPNF ?" 
;l«^ THFPF AK) IMTFKPUPT ? 
JNP, Ct^FCK "TNTtPRDPT", 
; " n p I M I ly F Q " . 



.KHT 



C !.'■ 3 1 .MAIM 



M ? 3 7 ,;i 

"I ? S 7 4 
i';2v37b 
i'^?37fS 
^9377 

51 ? 4 C'l W 

w .r *4 vi o 
l':?4C4 
i^ ? 4 « 5 

f^?407 
1/^?41 u1 
M?41 1 
I'' ? 1 1 2 

t?4l J 
■/> 2 4 1 4 

/?41b 

Li ? 4 1 6 
^< ? 4 1 7 
(?34?H 
'/i?4?l 
i^' ? 4 ? ? 
i^?4?3 
li'' ? 4 2 4 

:i242b 

M?4?h 
i'?4?7 
i/, 2 4 3 
t:. 2 4 3 I 
[^2432 
H2433 
/2434 
^'2435 
ii2436 
^^2437 

W 2 4 4 C^ 
5^3441 
1^2442 
r. 2 4 4 3 
t^ 2 4 4 4 
P^244f> 
1^2446 
(/12447 

t:"2 4 5t1 

P^245l 



l^2i^lbl P42: 

^i24l?i62 

I234';i5 

e. 51 ;« 4 tfl fi 
i^ P" fi ? 3 7 
i^(?i62^4 
v''yi6235 
!?if:^62S3 
tiPi6243 

i?i|?i624« B43: 

'»2H1 52 

l''6 3C^33 

■i* 2 ^ C" 7 i^ 

Hfil333 

';^3/}67 

vni6?g7 

V12022C' 

123415 

i,tPb242 

1-1^6243 



l,KH12 
1 |P>,SNP 
B43 
•I SET 



W CT fti 2 4 t^ 

1^21/11 b2 
C'«^3yi33 
ti 2 '/i C' 7 i/i 
ffil333 
W3H j 6 7 
l^!^62?7 
C 2 i/i W H 4 
123414 
l-i t^ 6 2 4 2 
1^1^6243 

ia 6 2 4 1^ 
C^9I6236 
i'lC1624fi 
j/i[^yit»77 
M2i^P'6f5 
■/■3HMrt4 
107414 
147414 
iX! 1716242 
v'l?ft243 

W ft ? 4 1^ 
0^^6236 
i^0624« 

f/) p> 3 (;> p" 
i/i2t'!Pi6f5 
Pi3u)f?i64 
1«7414 
147414 
0Pt8242 
i;^P!ft243 



R44: 



B45: 



R4fi: 



in A 

LOA 

AK;0 

JMP 

JSP 

Pf CU3 

IT»wT 

Fhi.t 

Lonp 



SETPl 

LP A P1,TtSTll 

nrjc ''r,DSKP 

LnA ?i,KH6 

npAp 0,OSKP 

IDA 2,C5 

WATT 

LDA Pt,C74K 

ANDtt [.</). SMW 

EHAUT 

Lonp 

SETPl 

LDA !%Tf:STI) 

nor !«,nsKp 

LOA \^,HHS 
nciAP iipDSKP 
IDA 2,CS 
^'ATT 

l-liA vi,Ky In 

AMHO l,k1,S7l^ 
eHALT 

Lnnp 

■SETPl 

CAnSK 

SEFK 

77 

LDA P'.KBQ 

LTiA 2,KHU1 

AKfOa ^,1,S7R 

ANDtt 2,l,S7H 

FHALT 

Lonp 

«hTPl 
RAHSK 

3P1P» 

LDA Pt,KB9 

LDA 2,KBl/ 

ANinfe v*!, l,SZK 

ANDft 2,1,S7R 

FHALT 

LOOP 



»SEE IF "SEEK DONE 3" 
FWTLL CAUSE INTERRUPT 

I (SKIP IF NO UNIT 3) 

»SFT "SEEK DONE 3" 
;IS THFRF AN INTERRUPT ? 
INn, CHtCK "INTERRUPT", 
;"DP INT REQ", 

fTEST SEEK TO CYLINDER M 

> (FIRST ATTEMPT AT COMPLFTE SEFKJ 

ISELFCT AN ACTIVE UNIT H 

JSEEK ! 

»WAIT SPIt^MS (OR UNTIL "DONE") 

; AClBSTATUS 

! Kg n SEEK DONE STATUS 

fCHECK "SEEK", "CONTROL r',"CYL", 

;"HD+niR", "CONTROL 2", SEQUENCING. 

;TRST Sf-FK TO CYLINDER fe) 

fSFLFCT AN ACTIVE UNIT U 

JSFEK J 

fwAIT SKCIMS (OR UNTIL "POnE") 

; AC1«STATUS 

;SFEK ERROR STATUS 

JCMECK "SEEK", "CONTROL r',"CYL", 

J"HD*niR", "DIFF", "CONTROL 2", 

»TFST SEFK CYLINOFR 77 fPITTAI ■» 



jacisemqing status 



ISFEK ERROR OR 
>N0 READY status 



;tfst seek cylinder 3055 (octal) 



; AC 1 sending status 



;sEEK error hr 

JNO READY STATUS 



f^ u' 7i 2 .MAIN 



t-54?? 


'/1C^8?4C' 


v^p^'^a 


VT/ihp.SP 


■/ ? 4 5 4 


/I pi f 1 ? 4 '^ 


/P^fSb 


1/1 {fl (/: ffl 1^ (^ 


/,?4S6 


c' c" e ? >i s 


(^ ? 4 "S 7 


l.-! i> W 4 ( •• 1 


/,?ii(Sv^ 


0?yi1 b4 


o ? 4 « 1 


.^65477 


v?<if!2 


192414 


■'24fi3 


M0^b?4? 


.--■ ? 4 6 4 


(-■< P! ^ 9 4 .'^ 


/ 9 4 ft h 


■* P b ? 4 1^ 


v<7af^h 


/ ?i ft ? i « 


■/ ? 4 P 7 


M [^ b 9 4 (^ 


/?47v: 


(■^piilPi.tP 


i''?47 1 


v^p.H?,^.'^ 


■/;9 47? 


V.P'^P.S^ 


/?47.^ 


1,1 !■/ 4 / ? 


i/P4a74 


f. i^ 6 ? 4 ? 


ri?475 


1,1 1" 5 9 4 ;^ 


i' ? 4 7 e> 


B''fs94t^ 


'/?477 


kA J» 1-1 f;* h 7 


i,' ? b M i/i 


Af^2'^77 


V'9^(^l 


/ (? H ? 3 P 


y?M,ii? 


i.<pe,94ft 


•i?"^'/.* 


(» i;< ,>, ,'^ ^1 [1 


," ? b P 4 


t'l'ea.if* 


;•■ ? M-i b 


;• </■ ..1 4 i'" ? 


i.'iPhM'^ 


PJ?»6?49 


/P^c? 


V'. /I h 9 4 >^ 


;'9M .1 


'.1 P h 9 4 « 


r9bl t 


./?t^C«H7 


y.^bX'?. 


■A ^2^17 


■^iPbl3 


('>P2«77 


;.?'S14 


f/1 ui h 9 3 *^ 


''?M5 


i.1 (-1 b ? 4 fi 


.' ? S 1 h 


,1 c» ..1 f? ( ■'• r> 


■?M7 


iK'6 9,J?, 


x?!S9i^ 


/Rfc.949 


.^?h?l 


i/i?i694:^ 



R47: StTPl 

RAHSK 
St(-K 

CI 

.IMP , + 1 

LHA f/,CDSK 

I VTA 1 

SliHtj l,i'^,S7k' 

FHALT 

Lnnp 

P4«: Sf-TPi 

SLFK 

Nine ii S K p 
TiPf r 

..tl"P .*9 
FHALT 
I r,np 

R 4 P : S H T P 1 

L n A ■I , < H 7 

M5.KI.I v1 

r. i\ T) s K 
«; t F K 
f1 
ITP^ T 

.r^.p ,+9 

fHALT 

Lcinp 

B 5 (3 : « FT P 1 

in A i-^.KH? 

tc;"ST 
r, A ^"1 s « 

S (- P K 

TT»-^T 
F^^ AuT 

I nop 



JCHOnS!: AN ACTTVF r3ISK 
SAND SFT IMTFKPIJPT VIA SEEK. 
JCHFCK Fnw PROPER niSK 
JAnORESS WFSPfiMSE TO JNTA 
jALinv. INTERRUPT 



JGFT THF: AnORkSS 
;IMTA FATLEO. 
I ACl^sGHOn 
f aCIsHAO 

JSFE IF fCI PULSE WILL 

JCLEAW "PP IM WFQ" 

JSFT "INTERRUPT" wITH 

fA SEEK 

f CI EAR IMT RFQ 

; CHECK FOR IMTPRPUPT 

f^n INTERRUPT, OK i 1 

!(C) THRU "CLtAR ALL" FAILS TO 

."CLEAR "np p^r REn". 

JT^SIiRE THAT "HP l"!? I'l'jAMLfc" 
n^!HTiiTT«5 iMTtPRUPTS 

:sET nrsAHLE 

;r,FT ACTIVE ii^jTT tf IM fACie^ 
JSTAt-T A SEEK 

nS THFRF AN IMIERRUPT ? 

JMSKP BIT 7 nin MOT SET "DP DISABLE" 
fAMH IWHIHTT "OP IMT REfj". 

JTMSURE THAI inRST saIILL 
;CLEAR "HP IMI DISABLE" 
J SET "np IMT niSABLE" 
fCLfrAP IT 

;RET active MMIT « IM fAC2) 
J START A SFfcK 



MS THERE AM IMIFRRIJPT 
;Mn, CHECK RESFI OF "pP 
MUSABLE". 



I\.T 



A tJii'^,^ .MAIN 



i'?h7?. iA2\fl\b\ H5i; 


LHA Pi,MDSKS 


f?s?,j im?£>!3 


MnVR ei,K,SMC 


i»!?b?4 MPIV*42S 


JMP B53 


'yt?5?S W^bJ^l 


SfcTUP 


i/i?S2S 15252P! 


SUR2L 2,2 


ti25?7 0P16J?46 


StFK 


i-i?S3w n^wdMi;! 


Pi 


i/i?5v^l ^'^4433 


DIA i.nsKp 


W?532 piss^ptes 


LDA 0,KH9 


^?5S3 123415 


AMOw 1,1^, SNK 


i^9534 1106242 


FHALT 


i^PftSS HW6243 


Lpnp 


f.2S36 i^RoPfll h52i 


5P.TUP 


1^2537 15252P* 


SU3ZL 2,2 


i.'s254i;^ nP6?4fi 


SEFK 


fi2541 ?P<i4PHFl 


PI 


f2542 (^64433 


nxA i,nsKP 


02543 02Pieir»4 


LDA >yi .KBX'A 


i,i?S44 123414 


A ^■ n t( I , i/s , s 7 R 


t'*2&4S 1^?I624? 


EHALT 


("2S4h ^36243 


LOnp 


i"2h47 &-.2Dolbl R53: 


LDA fl,MD5K<5 


^■2b5ti li;il2v(C« 


MOVR i1,t^ 


C'!2SS1 lt»12/i3 


MOVW tl,/,SMC 


(>t2552 i'iHi^423 


JKP R5fi 


t''2!553 iiPio241 


SfT UP 


H25f^4 ■;*3i^I!*6yt 


IDA ?,Krt14 


«25f& i;iHb24S 


St EH 


i/.2f)?fi i^ 01 / « ii (^i 


PI 


t^?bS7 i'!fi4433 


r>IA l.nSKP 


i,^2Sfi7l V!?/RhS 


I.HA W,K89 


!^2Sfil 12341f» 


AKDw l,tSSMW 


^^25i*;2 »Plfi242 


FHALT 


tri2t>63 0Plb243 


LOOP 


/2SIS4 (^Plb24l R54: 


StTUP 


i>i25fi5 03C5PihPi 


IDA 2, Kb 14 


t'?5fi6 «Pfi24(S 


S(:.l-K 


I/'' 2 5 6 7 1^ 1/1 1* I'' (^ 


» 


!/2b7i^ i'!fi4433 


njA IpOSKP 


«^2!>71 Cl2fji/Tn4 


LDA ?1,K81l^ 


io2!572 123414 


AMHft l,ki,S7R 


Pi2S73 /P'6242 


FHALT 


■^7b74 !?I?i6243 


Lfinp 



JIF UNIT NJOT AVAILABLfc 
»Gn ON Tn UNIT 1 
; (UNIT PI NDT 8FING TESTtD) 
UniF STATE STATUS CHtCK 
?SFLFCT THF ADAPTER 
>kTTH A REFK 

;PEaD STATUS 



JNn READY STATUS, UNIT </< 



TIDLE STATF STATUS CHECK 
fSELFCT THE ADAPTER 
;wITH A SEEK lr!l 

^BEAn STATtIS 



fSFEK FRPOP STATUS, UNIT t^ 



»IF UNIT 1 IS MOT 
JAVATLABLE, ao ON TO UMT 2 

J SKIP THTS TEST 
flDLF STATE STATUS CHtCK 
;SFLFCT THF ADAPTER 
»wITW A SEEK 

?RFAn STATUS 



;Nn READY STATUS, UNIT I 



;inLF STATE STATUS CHECK 

;SELFCT THE ADAPTER 
rwITH A SEEK « 
>REAn STATUS 



rSFEK FRRQR STATUS, UNIT 1 



!^ 'M , -1 A T V 



V Ph7h 


.^p/i bi 


V :?^7^ 


iip4P6 t 


V ?^7 7 


1 ^ 7 d v; f" 


i ■ P r !-". / 


;•' f^ '/^ 4 P 3 


i-?r.''^ 1 


■.M'f;P4 1 


•: p ►. '.» ^ 


,^3i.ric1 


.'P'oC'v^ 


i-ri^?4*> 


.y P (^ -.I 4 


■ ' <■^ i,i ('-. / '* 


r?f■,i'^ 


^^ fi a 4 ,M 


. ?»-.C-lh 


(/. ? ■ ' f1 n "^ 


t.9h'/7 


1P.441 f> 


..•?M I--. 


. C ft P 4 P 


/ P M 1 


^^'TihP4:^ 


/■ 9 612 


/ / 6 P 4 t 


• ? 1 .S 


i:5.-i!^fsi 


.■P^iM 


/ '/ h P 4 '^ 


L?nlh 


j/ ;?\ t> r^ ■/ r,i 


i' P »^ 1 6 


C : fr 4 4 J "^ 


1 ? ^ 1 7 


y P 1* '1 ^ 4 


,' ? h P si 


)P:}45 4 


^ P f- ? 1 


i'* 6 P 4 P 


V P^PP 


:■ r/ f-. ? 4 :^ 


C' P fS ? i 


■:" ? xil M 


7 ? ri ? <1 


■/ p 4 "; c> P 


>/ 9 h ? ^ 


1P^4;'^ 


/ ? h p h 


. f'' 4 <^ :^ 


I P K ? 7 


'(/8P4 1. 


:''?'^7i / 


i/ .? i' M ^ ? 


r^- P ^ ,^ I 


i • ■? h P 4 P 


SPh3? 


.'f/Mc't'" 


i,: ? ^ :^ J 


.'644 .i .:^ 


^^■?h^a 


,'. PiM'-'h!^ 


:■ Ph^b 


1P341?. 


■ ■- p f^ 3 ^ 


.•1 1* h P 4 P 


/. P r. 3 7 


.,i^h?4:^ 


V- P fl d 1-1 


•■ ri n p 4 1 


•p^/ll 


■i:st.'i^^p 


,'. ? h 4 ? 


[■■ ;■> h ? 4 *= 


.'?^4J 


..1 f^ v' " / R' 


:■' P 6 4 4 


i^ 4 4 ,^ ;< 


I,- ? ^ 4 ^ 


■A P lA f (» 4 


v^ P fi 4 b 


1 ? .M 1 4 


'.•?ft47 


„' C b P 4 ? 


!/ ? 6 h /^ 


w 1.'. ^>?^i^ 



i.r-A i,t<rii3 
J f- p « ^ 7 

■^t TliP 

tl A P,Krtl3 

SfcFK 

r' 

ni 4 1 ,ns<P 
I r, A IS *< B f) 
A^^« Li'ifSMK 

FhALT 
LOOP 

L r- A ? , K ►i 1 :i 

S t- F K 

niA i.nsKp 

U)A i^KHlC'i 

A^:^c l,/,S7N 
F H A L T 
I. nnp 

I [A 1 ,Kr5l ^ 

AMI l.i^Srj" 

,IKP ni 

SfcTljP 

U.A ?,Kblk 

R Ir F K 

n I A 1 , n s K P 
1. 1 : A ':^ ,Kn^ 
A N, D tt 1 , k; , s ^' w 
FHALT 

i.v.nf- 

BfSR : Sf TUP 

I r A ? , K K 1 ;> 

5 F F K 

n lA 1,(.^5JKP 
I.IjA r/^jKHH-i 
A N: n a 1 , t^ , S 7 W 
FpALT 

irinp 



MF I'MT 2 If^ '''OT AVAlLABLf 
JGH nsi Tfl liNT. T 3 

JSKIP THIS TFST, NO UMT 2 
nnuf STATF STATUS CHtCK 

isflfct THF adaptpr 

;wITM A SEFK (^ 
;rfFAn "STATUS 



;Nn ftfAPY STATUS. ll^JIT <> 



nOLF STATF STATUS CHtCK 
rSFLFCT TMF Ar)APTF;B 
fWlTH A SfcFK /! 

fRFAP STATUS 



JSFEK FHPOP STATUS, UMIT ?, 



jjF MMT 3 IS NOT AVAILABLE 
;(;n TO f^FXT TtST, 

• 

J SKIP, NO u^lTT 6 
nniF STATF STATUS CNFf^ 
JSFLFCT THF AOAPTEt? 
JwITH A SbFK iT 

fPFAD STATUS 



>^n PtAOY STATUS, IIMIT 3 



flOLF STATF STATUS CHtCK 
;SFLFCT THF AOAPTFR 
fWlTH A StF:K vi 

rPFAn STATUS 



,<5PtK FROOP STATUS. MMiT } 



A Pii/'3b ,'^ATf'' 



t'PbSl 


WPi^24l Di: 


SETUP 


(/•?6IS2 


■A7fA\b?. 


LDA (^,Tfc.STIJ 


tpftsa 


?ifi3P'33 


one ci,nsKP 


i-;?6 5 4 


I'lawitiPi 


1,0 A 2, BUFF 


C". P e fS 5 


t''7?c>3."^ 


noR 2,r)SKP 


I'^gft'Sft 


s?i?t^0lb7 


LDA t^,KH7 


i^Sh^? 


P!«l 1 33 


PLlAS ?),DSKP 


1,1 9 fS S PI 


ii y* fe 1 6 5 


JS» •STALL 


v^Pfif'l 


t^ftli233 


Nine: DSKP 


M?fS62 


y\f^lAi7, 


DIB (^,nSKP 


C^?6fi3 


i1 2 4 P! b P 


LOA 1,K814 


9 (h « d 


1 4 7 C' ti P« 


ADD 2,1 


i'?fr,f-,b 


1224 14 


5U«a l.t^.SZR 


i'yhnn 


1-1^6242 


FHALT 


1^26^7 


110^243 


Lonp 



L^2»j7?^ 
i" 2 ft 7 1 
1^2^72 
<'''2ft7vJ 
•z' 2 ft 7 4 
/267Si 

;.^ 2 7 F" ^'i 

<A7Tn 
v^ 2 7 P» 2 
i^ 2 7 Pi 3 
/ 2 7 CM 
^27(^5 
t' 2 7 « (> 
t-271'7 
i;i2710 
/• 2 7 1 1 



'^ yi b 2 4 1 
/^2i'il52 
>i IS 3 1^ 3 3 
ii3m I 6M 
vi72P'33 
ii 2 4 1 4 C« 
i^ 4 fS 1/1 

i'2r>'?«ft7 
('"61133 

i^ fi f/^ 2 3 3 

17! 2 I "I M PI 
11 3 1 ?l t'! 1 

IP'6415 
146414 
i^P'6242 

y> w 8 2 4 3 



n2 



SETU 

LDA 

nnr 

LDA 

DOM 

IDA 

5TA 

ST A 

L A 

OnAS 

.IS"? 

Mine 

LDA 
I D A 

SUB« 
FHAL 
LOOH 



J^,TESTll 
Ci, DSKP 
2, PUFF 
2,nSKP 
1,0252^ 
l,'^f2 

1,1,2 

i5^,Kfl7 

i^ , Q S K P 
•STALL 

DSKP 
'^ , '^ 2 
2,1,2 

H, 1,SN» 
2, l,S7K 

T 



;CHtCK THF. FIRST 2 DATA 
»CHANKiFL CYCLtS OF A WRITE 
KFIPST ATTEMPT AT WRITE5 

fLHAH TA «EG, 

H«PITE ii 

>ALLOi« TIME FOP DCH CYCLES 

JCLEAR THE wPUE QPERATIOKj 

>ac(;i»end!ng memory address 

JAC2«STARTlNr, MEMORY ADDRESS 
12 DCH CYCLES SHDULD HAVE 
»OCCURREn 

rArWBBAD, AClsGOOD 
;CHECK THE SFUIieNCE "DP FLAG"- 
J"RE'3r'-"2MD REQ", "DP FLAG" 
rSFTS "DP DCH REQ" WHICH STAYS 
\m FDR 2 MEMORY CYCLES, 

JCHECK THE FIWST 2 DATA 
;CHANMEL CYCLES OF A v-RlTfc 



»SET HEM ADDR PER, 

JDATA s M5252b 
f 2 WORDS 

; WRITE iJ 

JALLOw TIME FUR 2 DCH'S 

fCLEAR THE WRITE 

ns the oata still im memory 
;if mot a nchi may have 
;rfe^ performed instead 

fOF A DCHO 
IACMAAC2B8AD wORDS 
rAClsGOOn 



A 'Av?.f> .MAIM 



.'■ ? ; 1 2 


'1!?'f>?4t 


v?7i A 


n2ii1 f)2 


f 2 ; 1 1 


■^ f 3 (A oi 3 


i''.?7l5 


If/ij^/jii*^ 


.•?716 


^ f' 2 1" 3 3 


'y77\7 


'^ 2 d ;^ t? 7 


i'?7?t^ 


t^ e b 1 3 3 


v?7?A 


(/< c» b J f) ? 


" ? 7 ? ? 


^6t'.233 


I 27?.^ 


f/-3;i'*hP 


1/P7P4 


^"65433 


,:?7Pb 


11 3 f* !■ ■ f^ 


v,'?77b 


146414 


^?7?7 


•/iM^2<J2 


i/i?7:^c'^ 


(,1 [^ h 2 4 3 


i' 2 7 ;^ 1 


^-.i M 6 2 4 1 


^'>7^7 


ii 2 ! 11 ^ 2 


;-^?7 3,5 


'■^ 6 3 '^ 6 3 


^•.?7?i4 


1 (^ 2 S 2 (71 


v5973b 


/; f> 2 '■'v^ 3 


ir?73b 


!'. 2 4 f-i 6 7 


i"9737 


vi 6 b 1 3 3 


i,> 2 7 /I '/ 


1/ M *s 1 h S 


V ' 2 7 41 


ui «S 11 2 J 3 


>2742 


:. 1 3 C'. '.'' h '■'' 


12 7 4 3 


ii fi ? 4 .^ •S 


^■.27 4 4 


1 13P'cit'( 


t*274h 


1 46414 


i-.2746 


ti C^ h 2 4 2 


'A77A7 


{/!''^6243 


'/2 7^'/ 


W PI 6 2 4 1 


•^27!Sl 


I'l 2 1.1 1 fS 2 


t 2752 


i''63f 33 


^'27S3 


/2iM17 


t;-.27'i4 


i/'62r.'33 


/.2755 


M 9 4 H f^ 7 


i^27S6 


f- fi !5 1 3 .-^ 


v?7S7 


1/ f/ M h *> 


;'-2 7SC' 


i^ 6 1^ 2 3 3 


■. 27S1 


I'i 3 i-l w b C" 


^''27(^2 


I'! fi b 4 .6 :a 


'''27fi3 


1 XiCv^'^ 


■^27 6 4 


146414 


w 27 fib 


i,'',p'^9 42 


l'!2/''f> 


i-U' h 2 4 3 



03: 



04: 



nb: 



,«5tTliP 

IDA 0,Tt,STii 

nr.r ii^f^SKP 

P LI i-* ^ . 1^ 
POM l,\ S K P 
t (;. & 1 ,<H7 

ntiA? i.oSKP 

JSP «STALL 
Mine OSKP 
LP A 2,KH14 

ni» i,nsKP 

A [T P 1'^ , 2 

SUf^t 2,l,S7ty 

FhALT 

L P n P 

«;(:TliP 

I. P4 '.\Te:STii 

PfiC '/i.nSKP 

r n B 1^ , n s « p 

I I) A 1 ,KH7 

npAS i.r-SKP 

JSP StSTAUL 
MIOL" PSKP 
LP A 2,KH14 

0I^ l.nsKP 

Ann c^,? 

^uw** 2,l,b7f< 
FHALT 

L n n p 

R p T U P 

Lf'A iSTtSTIl 

'■i.nsKp 
-^ , r 3 

IS f^SKP 
1 ,t<b7 
I.USkP 



n r 

LP A 

npR 

1 PA 
OLiAsS 
JSP («STALU 
MIPC L/SKP 

L PA 2 , I' B 1 4 

pjH i,nsKP 
APP n,2 

■"^ 1 1 « » 2 , I , S 7 P 
f-l-AL T 
I PHP 



rCHFflK PPPPEP CA PFCISTfrP 
;lMC»tMf.NT HY ALLOWIMP, 
JTHh KTkST 2 OATA CHANNEL 
JCYCLtS AT THE HEGlNNIMf, 
JOP A WMTF. 

; WHITF M 

ISTPP THF WWITP 

» An^ = 5TAPTlNf^ MtHGWY APPPtSS 

fAClsArTUAL F-NPINt, mF^OPY 

; APPPt-SS 

;AC2BCnWPFCT tWDlNR MfcMPRY 

; ADPBtSS 



JCHtrK PPPPeP PA WEGTvSTFW 
JPICPFMFMT 6Y ALLOWING 
n^t FIRST 2 DATA CHANiMFL 
;CYCLF^ AT THfc rtFClNNIMf, 
;aF A wklTF, 

> WPTTF li 

> S T ri P THF W K I T F 

; ACe^sSTAPTlNP MEMORY APDRtSS 
fAritArTMAL FnpIMG MF^'OPY 
} AnpREPS 

fAr28CnPRtrT b^'OlNG MEMpMY 
J APpPfcRS 



jr.HFCK PPDPF.P CA PFGISTtR 
MnjCPFmFnt by allOWIMG 
»THf-: FIRST 2 UATA CHANiNtt 
JCYCLtS AT TNt bFPlMNINt, 
; n F A w R T T F . 

; WRITF M 

JSTOP THF WRITF 

; AP.'/'iSTAPTlNG ^^EWORY AOuPfcSS 

J APlsArTllAL EMPIMG MEF'nRY 

; APDPtSS 

;AC2sCnRCfcrT LMQING MtMORY 

} AnPRF.SS 



A Pll/137 .MAIM 



(■"?7fi7 '/P(fe34i ne: 


SfeTUP 


H?770 M?e!l5? 


IDA 0,Tfc;STIl 


0?771 PS63I7I33 


DOC 0,OSKP 


i'?772 v^ac^lgPl 


LDA 0,C7 


c».?77cJ eifi2P!33 


ODR 0,nSKP 


P!?774 55?40fj7 


LOA l,Kd7 


w277h 06513."^ 


nciAS l.DSKP 


^•12776 {^H616? 


JSP *STALL 


Vim yi60233 


NIOC DSKP 


£^3ni7iyi 03i;iCT6(?i 


LPA 2,KB14 


uSiaPfi 0^5433 


018 t.nSKP 


i^3f/iP2 113i^(.50 


ADO 0,2 


:^3(-'!03 146414 


SUBtt 2,1,SZR 


\A 'S\Aa A Oifnao AO 


C L^ k i W 


■ !.•''■ ■^ IT." ■■ ' V* C ^ fi 


C-nHU 1 


i?i30O5 t«C^6943 


LOOP 


P!30?l6 0PI6241 07: 


SETUP 


^!3007 Pi9t^lb2 


LDA 0,TfeSTII 


1^3010 0fi3P!33 


one 0,nSKP 


03PI11 02tM.21 


LOA 0,C17 


m3P!12 0fi2i^33 


ODR 0,OSKP 


C13013 :^24Pib7 


LPA t,KB7 


C.30U 06tJ133 


npAS l.PSKP 


3015 006165 


JSP •STALL 


(/'31/116 060233 


MOC OSKP 


030 J 7 030060 


LHA 2,KH14 


C3020 06S433 


OJB l.OSKP 


3021 113000" 


ADO 0,2 


03022 1464 14 


RlJHtf 2,1,S7P 


^3023 ^0624? 


FhALT 


03024 006243 


LOOP 


1^3025 006241 na: 


Sf-TUP 


/■3n26 yi201b2 


IDA 0,TESTI) 


03027 063033 


one 'snsKp 


03030 i'120 122 


LOA 0,C37 


03031 062033 


OpB 0,OSKp 


03C.32 024067 


LOA l,Ky7 


3033 Pi6bl33 


OCAS l.USKP 


03034 006165 


JS» «»STALL 


(^303b 060233 


MIOC D5KP 


03036 03006« 


LOA 2,<W14 


03037 065433 


OIR l,nsKP 


03040 113000 


ADO 0,2 


03041 146414 


SU««» 2,1,SZR 


03042 006242 


EHALT 


03043 006243 


LOOP 



TCHECK PROPER CA REGISTER 
IIWCREMEMT BY ALLOWING 
»THE FIRST 2 DATA CHANIMfcL 
rCYCLES AT THE 8EGINNIMG 
JOF A WRITE, 

f WRITE M 

JSTOP THE WRITE 

t AC0«STAPTING MEMORY ADDRESS 

»Aci«ACTUAL Ending memory 

; ADDRESS 

»Ar2eC0RRErT ENDING MtHORY 

f AODRtSS 



JCHECK PROPER C.k REGISTER 
/INCREMENT «Y ALLOWING 
ITHE FIRST 2 DATA CHANNEL 
JCYCI.ES AT THE BEGINNING 
»0F A WRITE. 

; WRITE M 

;STOP THE WRITE 
»AC0sSTAPTlNG MEMORY ADDRESS 

;acisactiial enoimg memory 

f ADDRESS 

;AC2sCnRRECT ENDING MEMORY 

t AOOPESS 



rCHECK PROPER CA REGISTER 
UNCREMENT BY ALLOWING 
fTHE FIRST 2 DATA CHANNEL 
JCYCLES AT THE BEGINNING 
»0F A WRITE. 

» WRITE !J 

;STOP THE WRITE 

J AC0«STARTlNn MEMORY ADDRESS 

fAClBACTUAL ENDING MEMORY 

f ADDRESS 

fAC2«C0RRECT ENDING MEMORY 

t ADDRESS 



A fi V 3 b , M A I '.I 



vi :^ c» 4 ii 


,s'/e>?4i ng: 


,« F T M P 


^1:^i.''l^ 


/?iM 5P 


LC'A t^.TbSTii 


I', ."^.-"^b 


hfi3:^33 


ncT i^,nsKp 


i' ? .' 4 ; 


ii ? ii 1 ? 3 


I n A w , C 7 7 


i-.,-^M'S.i 


vi6^?.53 


Oc-H ("jOSKP 


.;v.M 


.■,?4Ptn7 


l.r.4 i,Kt^7 


l/?^,/^^? 


V • 'S b 1 3 3 


noAS i,i)SKP 


v ^,'^^ 


,1 M M h f^ 


,1$P •STALL 


•■y^^'^a 


■-^ *! l-i 9 .5 3 


Nine uSKP 


..■:^;'?s 


/I 3 i" /■ b (1 


LP A p. Kb 14 


1/ :^ t"5 f5 


/ fi h 4 3 3 


niH i.nsKp 


M:^.ih7 


1 1 JifM'f> 


Ai-.n ",? 


i' :^ 1/ fi i,i 


1 4h4 1 4 


SliBo ■^,l,SZh' 


i/:?r.''il 


i.'i'ib?43 


THALT 


i':^.if? 


,'. ■'" n ? 4 3 


Lnnp 


v':\'..iP3 


L-:'lh?41 nii3! 


S t^ T Li P 


I' ^^i'^ h «j 


i". ? CM l-i ? 


LI' A .■»,TtRTIJ 


t-- 3 M ^ b 


.. fi3['\'i3 


n Ti r I/' , n s « P 


1/ Tiv'i^i^ 


i?;-il?4 


Lf'A r-^.r. 177 


I- 3 ^"^7 


:^>>?tM3 


HfiB :^,OSi<P 


p:^''?/' 


/, ? 4 Pi h 7 


L( A l,<*i7 


.':^y^7l 


• » ft M 3 3 


nt.iAS l.DSKP 


i-,^>^7;^ 


1/ Pihl fSh 


JSP «STALL 


,^3.^7^ 


?^.1?33 


Niinc OSKP 


i.'.:^'.^7 4 


i,: ;^ !,i t^ ^' 17 


L n A ? , K H 1 4 


-:^:i7b 


'-' « b 4 .:^ 3 


HT'^ l.nSKP 


'■^3:^7^ 


1 1 3rviP' 


AHD 3,? 


.13.-^77 


1 4h414 


SUHb i^,l,S7W 


/^ 3 I f^ .■ 


I- f 6 ? 'i ? 


FHALT 


.■31 ill 


,/'Mh;J43 


LC^nP 


>"3ir"<' 


I- ; !^ h ? 4 1 r n : 


PFTUP 


'. 3 1f.^ 


i^?/1 bP 


LDA -^fTtSTM 


:'■ 3 1 'I <i 


1.'^ ft 3 / 3 3 


HOC '^,ns<P 


,'' 3 J " ^ 


./.p./r^s 


Lt'A t'',C377 


/ 3 1 ? b 


,-. ft ? r-i 3 3 


noR i-*,nvSKp 


1/ 3 1 i^ 7 


vi?4Ph7 


LL'A 1,K'^7 


.'311*' 


'.iftb133 


no AS i,n5KP 


'.■ 3 1 U 


•^1 1,1 ft 1 b ft 


JSP «STALL 


^^3 11i^ 


.•fti,'933 


»>'inL USKP 


:■ 3113 


!/• 3 f' w (1 (■^ 


LDA ?,KH14 


.' 3 1 M 


!/• ft b 4 3 :^ 


njR l.nSKP 


-; 3 n b 


1 1 3Pii(^ 


ADD M , ? 


y'3U^ 


1 4 h 4 1 4 


^I'f^ft 2,1,S7P 


t- 3 n 7 


:/: l-< p 9 4 ? 


f-' H A L T 


v^31?^^ 


/iHb943 


1 tinp 



»CHECK PPGPtP CA REGISTfcR 
»INCRF-MtMT 8V ALLOWING 
>THE FIWST 2 DATA CHANNEL 
JCYCLFS AT THE BEGINNING 
»0F A W'PTTE. 

J WWITF ii 

;STPP THF WRITE 
JArmSTARTlNG MEMORY ADDRESS 
JAClBACTIiAL ENDING MEhORY 
{ AnnPESS 

:AC2>C.nRRECT ENDING MfcHf.iRY 
J AHOPESS 



JCHECK PRDPEP CA HEGISTtR 
;INCREHENT BY ALLOWING 
JTHF FIRST 2 DATA CHANNhL 
ICYCLES AT THE BEGINNING 
;GF a wklTE. 

t WRITE i: 

;STOP THF WPTTF 

J Art^sSTAPTTMG HKMORY ADDRESS 

;AC1«ACTI'AL ENDING MEMORY 

f ADOPESS 

;AC2=C0RPfcCT ENDING MFMnRv 

J ADDPESS 



?CHECK PPQPEB CA REGISTER 
flNCPfc^ENT BY ALLOWINP 
jjHE FIRST 2 DATA CHANNfeL 
KYCLES AT THE BEGlNNINt; 
J OF A U'KITF. 

f WRITE 11 

fSTOP THF WRITE 

; ACv'sSTAPTiNG MEMORY ADDRESS 

lAClsACTUAL FNDING MEMORY 

; ADDRESS 

tArpxCDRRECT ENDING HEHORY 

J ADDRESS 



A ?l ti 3 Q , M A I M 



(';H?1 ^Pib?4i D12: 


St TUP 


v^31?2 i^?015? 


IDA ^/i,TESTU 


i*'3123 (^63^133 


nrjc p),nsKP 


i'.31P4 '>i2i^1i?ft 


LDA W,C777 


t'31?ft !>'fi?'^.3Tl 


HOP. P!,nSKP 


■^'3136 V.PA^f>7 


LOA 1,K87 


'/31?7 ^^f>S133 


ODAS 1,0SKP 


/ 3 1 3 i.' i^ 6 1 ft 5 


vise •STALL 


^3131 HfittpSS 


MIOC DSKP 


1^3132 w3f>iC^<5i'i 


Lr>A 2,KB14 


t^3l33 P'.«'5433 


niP i,nsKP 


[^3134 nSPi'!'^ 


Ann r^,2 


e" 3 1 3 S 1 4 6 4 1 /J 


SUB* 2,l,S7f^ 


W3136 t'!i?i6?4p 


EH&LT 


i«3l37 !/^P'6?43 


Lpnp 


Vt314H C^(7!6?4l ni3: 


5FTUP 


1^3)41 (;i20t5? 


LDA M,TESTli 


;^3142 i^!SAPI3 3 


nnc M.nsKp 


'^3143 c^?0127 


LDA t)|,f!1777 


^^3144 v^62C'33 


DOB 0,OSKP 


1/^3145 £?i?4l^67 


LDA l,KH7 


fe?3146 M^5133 


noAS I, DSKP 


i''3147 ?tpt61ftf5 


JS« *STALL 


t^3l5ifl t^ftt^?33 


Mine DSKP 


(^ 3 1 S 1 CI 3 1^ PI « C^ 


LP A 2, KB 14 


1^^3152 MPb433 


DIR 1,nSKP 


[-iSlSa 11 35" Pin 


Acn '^,2 


f*. 3 I ^ 4 14 64 14 


SUPfa 2, l,S7»^ 


i/i31Rb i/i!?i6?4? 


FHALT 


t^3156 i''Pi6?43 


LOOP 


v^3157 0176941 ni4; 


RF.TLiP 


?!316^1 0121^15? 


LPA W,TtSTU 


f^31fil cifi3Pt33 


one pi,nsKp 


i^31«2 !?)?'/133l 


LDA tA, 06777 


^3163 ';i62'^33 


nn« i^,nsKp 


^31^4 w24C»b7 


LDA 1,KB7 


f"31f!5 [':fi5133 


DOAS l.OSKP 


i^31fib C^ITiaiftf? 


JSP »STALL 


ii31fi7 /.6!?I233 


Nine DSKP 


{^317^! P!3CiPi6W 


LTA 2,KH14 


•.13171 1^65433 


niB l,nSKP 


fr'3l72 ll3Pii/^7 


Ann 131,2 


i?^3l73 146414 


8DR« 2,1,S7.K 


1^3174 ?1P!624? 


EHALT 


C>317S MP16243 


LOOP 



;CHECK PPOPEP CA REGISTtR 
IIMCPEMEWT BY ALLOWING 
ITHE FIRST 2 DATA CHANNEL 
KYCLES AT THE BEGINNING 
JOF A WRITE. 

1 WRITE n 

JSTQP THE WHITE 
lACPsSTARTlNG MEMORY ADDRESS 
IAC1«ACTUAL ENDING MEMORY 
f ADDRESS 

;AC2sCnRRECT ENDING MEMORY 
; ADDRESS 



;CHECK PROPER CA REGISTtR 
JTNCREMENT BY ALLOWING 
'THE FTHST 2 DATA CHANNEL 
>CYCLES AT THE BEGINNING*" 
;0F A WRITE. 

i WRITE 11 

JSTOP THE WHITE 
'ACPisSTARTlNG MEMORY ADDRESS 
.•AriBACTUAL ENDING MEMORY 
t ADDRESS 

>AC2«C0RRECT ENDING MEMORY 
ADDRESS 



fCHECK PROPER CA REGISTER 
UNCREMENT BY ALLOWING 
;THE first 2 DATA CHANNEL 
fCYCLES AT THE BEGINNING 
>0F A WRITE. 

; WRITE 11 

/stop the write 
;acc5istarting memory address 

JAClsACTUAL ending MEMORY 
; ADDRESS 

»AC2«C0RRECT ENDING MEMORY 
; ADDRESS 



A v«;. 4;^ 



A IS' 



' ^ I 7 (^ 
^3177 

*/. :^ 2 M M 

c 3?m;^ 

v;^gM4 

/ 3 2 1 i^ 
.'3211 
/3?1 2 
;i3213 
»321 4 

t'321b 

';i3?i7 

^32 2t'. 
'/3??l 
i"3??P 

'/:?>?.? A 

*^3?24 

i,-32?S 
/,32?6 
".3227 
lA 3 2 3 vi 
v"323l 
t-i32 3 2 
i/i3?33 

u323 4 
t 3235 
^■3236 
t/'32?7 
,'132 4 n 
1^32 4 1 
/3?42 
>i3?43 
/ 3 2 4 4 
il32 4fj 
1^3246 
i/i3247 
^32 5,1 
/i32bl 
C13252 



-1 f^, h 2 4 1 n 1 5 : 

f2/1 b? 

i..fi3W^3 

"' 2 n 1 >} 1 

u f> 2 C^ >i 3 

ii 2 4 ^1 b 7 

v^6b133 

■/ 1^ 6 1 h "i 

Mf^r'933 

/. 3 5^ C» 6 f^ 

i'6b433 

113™.v:^ 

14^414 

M M f) 2 4 ? 

./f r/ 6 2 4 3 

i,-i CI 6 2 4 1 016: 

v«2l-i1 f>2 

u:fr3^i33 

i^2i''K^2 

■ ^ ^ 2 '■■' 3 3 

i,'24i^07 

ii^bt33 

'.•1 (? M p S 

r^fii^233 

V 3 v". (^ ^ c» 

t'' 1^^433 

11 3''1!;-f' 

14f^414 

^Cft242 

". I? h ? 4 3 

1/ fyi ft 2 4 1 n 1 7 : 
■/2yib2 

v;^h3(^3 3 
■.'i2wl33 
/.P2l''33 
•/ 2 4 f'' b 7 
y. F M >5 3 
/• W fi 1 h «> 
/1 6 M 2 3 3 
!/< 3 ti (^ 6 '^ 
v^65433 
1 1 3c ^^w 
146414 
C; r/| 6 2 d 2 
S', 5^ b 2 4 3 



Sf- TliP 

1. n A tS T t S T 1 1 

nrc f^jOSKP 

l.nA ^,C77 7 7 
ntlR •.1,'^SKP 
L i'' A I , K H 7 
nr;A5 I.DSkP 
JSW «STALL 
MIOC USivP 
L I -J A 2 , « H 1 4 

rijH 1, ,nsKP 

A 1)0 'S ? 
5I'H« 2,US7R 
f-HAUT 

LOOH 

St TtiP 

LDA (Z, ,TESTU 

n [1 r ;>i , n S K P 

I fi A 1.1 , r. /. 1 7 

U: A 1 ,K,:5 7 

npAS 1,'jSkp 
JSP fSTALL 
MIOL ijSKP 
I I ) A 2 , K -i 1 d 
11 1 « 1 , S < P 
Ann ^'■,2 
SI1»K 2 , 1 , 57W 
f HALT 

Lfinp 

SF-TliP 

I PA "1, TtSTU 

n n c f , n s K P 
I. HA ^/,C;i3 7 

niiM (i,nsKp 

I. PA t,KB7 

npA5 I, IJSKP 

,j 5 tf « S T A L L 

Mine 1 1 *> K p 

L (.1 A 2 , K fM 4 

njw 1 , nsKp 
Ann Pi , 2 
51:«« 2#1,S7W 
HHALT 

Lnnp 



JC^eCK PPOPtP rA h'FCiIbThR 
»INCPEMtK!T HV ALLOWING 
.jMh FIWST 2 DATA CHANMhL 
;CVCLfcR AT THfc dFGI^MI^J{, 
J OF A wwITF. 

S W P I T E 1 i 

;STnP THF WHITF 

> ACi^«STAPTlNl"- MtMORY AOnWfcSS 

;Ari«ArTMAL FNOiNG MFMOkY 

} AnnRERs 

J Ar2sC.nRPFCT t^'OlNG Mf-MnHV 

J Ani.,ct.ss 



;CHfcCK PRpPtP CA REGISTfeR 
flMCPt^^FMT HY ALLOWIKit, 
;THt FIPST 2 DATA CHAKNtL 
JCVCLtP AT THfc BFGlNiNING 
j F A W W 1 T P . 



-iPTTF 






.•STOP THf: WHTTF 

; Ari^isSTAPTTNG MtM(iRY AnnPtSS 

; ATlsACTIiAL FNHIMG mFhOkY 

; A n n P E S S 

>Ar2«CnwPtCT tMOlNG MtMHRV 

; ADiiPess 



;CHF.r:K ppoPEf^ CA wEGlsTtP 

;INCRFHEMT HV ALLOiwING 
;TME FlkST 2 DATA CHANNtL 

rrYci.es at the HFGlNfMlMf, 

»0F A Wi^TTF, 

; WPTTF 11 

rSTOP THF k«ITF 

} ACMsSTAPTiNG MfcMOPY AOrSfcSS 

» ArisACTIIAL FnjDING KEMOPY 

; AnijPt.SS 

;AC2«CnpRtCT tMOiNG MEMORY 

; ADDRESS 



/s t^iAAl ,HAIM 



^3253 


^ipi624i ni8: 


SETUP 


i?lS254 


|?2W152 


IDA «,TfcSTll 


03g5b 


063lii33 


npC PiDSKP 


piagsft 


1PI222(?! 


ADCZ" 9!, It 


ei?257 


i^620l33 


DDH «,DSKP 


M32P(fl 


0245^67 


LDA 1,KB7 


K3261 


v^6bl33 


nOAS l,DSKP 


t^32fi2 


^{^6165 


JSP *STALL 


&!32ft3 


i^fii^?J3 


NIOC DSKP 


^3254 


(^65433 


niH l,nSKP 


K'32fi5 


152f52W 


SUP2L 2,2 


M3266 


146414 


SUBtt 2,1,S7» 


w:^»«7 


r^ n K o >i o 


EHALT 


» » - » ■ ViT # 


»' •■ V.' c ^ C 


M327t5 


M«fi243 


uonp 


H3271 


/Me24i D19: 


SETUP 


('^3272 


w2Mlb2 


LDA «,TESTI.I 


(•13273 


M63PI33 


nnc t^.nsKP 


t^3274 


10291 ?i CI 


Apr Wjon 


v^3275 


i?'62Pi33 


now CfDSKP 


1^3276 


Pl?40fi7 


LDA l,K87 


(^3277 


i?65l33 


noAS 1,0SKP 


i^33Pi0 


i?iP6l6«> 


JSP #STALL 


(^33Wl 


0fiM233 


Mine nsKP 


H33M2 


1/HSS4J3 


fllH l,nSKP 


t;33?'3 


lS2ft2F' 


5UPZP 2,2 


tM3f»4 


1S141.'PI 


INC 2,2 


t'^33l*i5 


14h4l4 


Sue*» 2,l,S7t< 


i^33C»6 


vir»6242 


EHALT 


0351^7 


'1W6243 


Lnnp 



KHECK PPOPER CA REGTSTfcP 
MNCPEMENT BY ALLOWING 
»TME FIRST 2 DATA CHANNEL 
/CYCLES AT THE BEGINNING 
;0F A WRITE, 

i WRITE J{ 

;STOP THE WRITE 
JACi^sSTAPTTNT, MfcMORY ADDRESS 
JAC1«ACTUAL ENDING MEHQRY 
f ADDRESS 
fAC2«CnKRECT ENDING MEMORY 

f AnnRESS 



»CHECK PROPER CA REGISTER 
IINCREMENT BY ALLOWING 
;TH£ first 2 DATA CHAWMPL 
/CYCLES AT THE BEGINNING" 
IDF A WRITF, 

; WRITE il 

;STOP THE WRITF 

J ACt^sSTARTlNG MEMORY ADDRESS 

MClsACTUAL ENDING MEMORY 

t ADDRESS 

>AC2bCPRRECT ENDING MfeMORY 

; AHDRESS 



.EDT 



;\,f ii'^ , M 4 I Ni 



V^-^X^^ ! 


■. . ri ^ p 4 f^ n ? '■' : 


"3.m : 


: 1 ? 4 1 h 3! 


V hl\2 


1 fi b CI 3 3 


f-:^3t3 


1- ? Ill !:) ? 


/> 3 .^ 1 <» 


VVi^\ 2] 


. ' :^ 3 1 ^ 


\?J>'*7.'? 


/. 3 .n b 


!.'iS3f''3 3 


/3317 


>'\?'^<7't>7 


■.^339v^ 


i^ R 1 1 3 3 


i.'3 3?l 


u^c«ft?3'S 


i-33?? 


I/I r« f; ? d P 


'/33?3 


i,«Mfi?43 


.^33?4 


/f^b?4f.' n?i : 


I.- 3 3 ? 5 


I,' ? 4 I ^ t^ 


•/i33?'S 


i'hn'''S3:^ 


C^33?7 


!' ? ^M b ? 


^■3331.! 


;' ? 4 r^ 1 


i'!3331 


I? J'"!"" 


•.■t333i? 


t' 6 3 ^13 3 


■A 333 3 


n?.iMn7 


'f 3 33 4 


■-^ 'S 11 3 3 


t' 3 3 3 n 


1 "S ? •S ;^ P! 


r3336 


i'. !3 h?2 7 


C'3337 


iifiii?33 


V 3 3 4 ^ 


^- ft 37 3 3 


.'334 1 


,-,1 ?1 1 ? 4 P 


t 334i? 


. F:hP4 3 


'-• 3 3 4 3 


.^ (^ h ? 4 ''^ n ? ? : 


/ 3 ;^ 4 4 


.•;?4 1 i^f^ 


I 334S. 


. , ^■ t. ri ,^ 7, 


^^ 3 3 4 6 


w?'/, 1 b? 


-/'3347 


.•.?4 1'^1 


i,' 3 3 ^ i.- 


1 P3c»i',P 


V 33SI 


■■'^ f. 3 f'^ 3 3 


i"33')2 


-I p it r> is 7 


/33'»3 


1 fS 11 3 3 


£^33*^4 


1 '-'i^V^- 


i- 3 3 «i b 


;1M^?;J7 


V 33?5fi 


in;^»i?ffl 


I' 3 3 *> 7 


M IS 1 !" 3 3 


p 3 3 fi i/i 


/>P37 33 


.•33fil 


■,in(i94? 


i/'3 3'=i2 


.-if»h?43 



!5 k T F 1 

LDA l.RUFF 

nn« i.nsKP 
I DA r,i,TESTl) 
IDA 1 , r 1 7 
A n n 1 , yi 
nnr n,os*<p 
l.fiA ri,KB7 
DnAS i^.DSKP 
TTWvT 
FhALT 
I OOP 

StTPI 

I. (3 4 l.HijFF 

nn=' i,osKP 

LtiA i?,TtSTll 
10 4 1,C17 

tor 1,!" 
n n c f^ , n s < P 

LDA '.'i,Krt7 

4 s I • • (J ? •* P 

U ATT 

Ml Of, DS^P 

<; K p t,: 7 n s K p 

FH4LT 

LHOF 

<;tTPl 

LDA l.HuFF 

no>* 1 .nsKp 

1 nA ri.TtST'l 
LDA 1 , n I 7 

ADD 1 , tl 

non p,nsKP 

L n 4 !^ , < ri 7 
OCAS v^,l)5i<P 
SU«£L 3»? 
WATT 

S I' " Z '' "'»'''' 

no* I'.nsKP 
SKP07 nsKP 

FH4LT 
Lpnp 



JATTFMPT A COMPLFTE WWITE 
fCFIRST WHITF WITH wC OVFLO) 
»ONe SECTOR 



ftlNlT » * StrT CNT 
»SELFCT liNTT 

;^«ITt il 

»*mAIT It^C^MS np UNTIL INTERRUPT 

ITTf^FPUT, NO INTERRUPT 



;aTTFMP7 to CLFAP "DP DONE" 
rwTTW fC) PULSE. 



?SFT "HP dhnF" with a One 
!SFCTn» l^HTTE. 
JSFLECT UImTT 

Jv^PlTf- IJ 

jwAIT It^f-^NS nw UNTIL OO^E 
MTTFf'PT CLh:A^< 
; (rj PllLSt OfifcS NOT 
>CLtA^< "HP QPNE" FF, 



JATTFHPT Tn WfcSET 

f"np pnNF" WITM "DP DATOA" 

jANn "DATA 1,^", 

>SFT "np DONF" i^ITH A 1 SfeCT. 

TiNPTTt, 

TSFLFCT UNIT 

f WRITE 11 

j^AIT IHPIMS np UNTIL OO^'E 

;ATTFmPT PESET 

>"nP DATHA" AND "DATA '?!" DOtS 

J NOT CLfcAW "DP OHNE". 



A (^\^■•A^^ .f^AlM 



V^^A^i iiC»h?4Pi 023; 


SfTPI 


/! ? 3 fi 4 M 2 4 1 b M 


LDA 1,3UFF 


vi3365 C«fi6i?v>3 


n08 IfOSKP 


i^'33«ft i-ip^lb? 


LDA fl,TfcSTlJ 


t\'^3'S7 M241?1 


LDA l,Cl? 


("337*^ l?3!?'iiPi 


ADO 1,0^ 


i?i337l 063P^33 


one W,nSKP 


f^-3372 ;-?«!^fi7 


LDA r^,KB7 


£'■3373 i^ fi 11 3 3 


ODAS lii.DSKP 


t-3374 IfSa^i^w 


StiRZL 2,2 


t'337b ti0fj??7 


WAIT 


^'337ej 0(S,^733 


SKPD7 OSKP 


P3377 t'fi3533 


SKPd7 OSKP 


?':7>A9', f1 ;>! (1 1; 9 4 ? 


FHALT 


'/ 3 4 P' 1 ^1 Pi 6 9 4 3 


LOOP 


t'34(?i2 iir»(S?4i5i 024: 


SETPl 


(^■34PI3 i'24!6yi 


LUA l.RUFK 


/1 3 4 PI 4 f-"^ fi t> !» 3 3 


noB l.nSKP 


^'340S (-iPtitS? 


LOA M.TfeSTD 


i/i34C»6 (^?41?1 


l.DA 1,C17 


;i34f^7 ),23C'Hiri 


ADO l.Cl 


C''341l^ i.^63''33 


one PI, OSKP 


P3411 f'.?cic^fj7 


LDA <^,Ka7 


t\34 12 i-.fiH33 


OOAS /,OSKP 


(^3413 l">2f>?M 


S!j»/.L 2,2 


,134 14 !/S'f.??7 


WAIT 


1/1 3 4 1 S i-' (^ 4 4 ,J ,-^ 


OIA 1,0SKP 


i.''3416 i/'Ppiu'hW 


LOA '\Ka\A 


« 3 4 1 7 1 !i 7 4 1 4 


AN:0*I Vi,l,S7K 


1'.342H ■/t^t^^A^ 


EhAUT 


iri 3 4 2 1 L-. i^ t> 9 4 3 


LOOP 


l'3 4?2 i.»J^62 4ffl 025: 


SfcTPt 


i'l 3 4 2 3 11 2 4 1 (s CI 


LDA I, HUFF 


t'.3424 t;66C33 


OOH 1,nsKp 


t/'3426 f'i9Vi1S2 


LDA n,TtSTll 


!/. 3 4 2 6 i^' 2 4 1 2 1 


LUA 1,017 


513427 I23t^r''^ 


AOO 1,PI 


!/343i^ ^^^30^33 


one PI, OSKP 


1^3431 !'i2Ci(?'f>7 


LDA M,Ktl7 


i'\3432 Mfill33 


OOAS B.OSkP 


'/^3433 152521^ 


SiJPZL 2,2 


1/3434 '/W6227 


WAIT 


t'^3435 i''6b433 


OIH l.OSKP 


P3436 H2(ilbr^ 


LDA W,RIJFF 


1^3437 t^3ei211 


LDA 2,C4PI2 


>3i34 4M 14 3i:^ti(?i 


ADO 2,1^ 


^i3441 122414 


^ijRa 1,^1, S7W 


1/3442 H'^b242 


FHALT 


i?3443 1-1^16243 


Lonp 



ICHECK HUSY-OONE 
fFOLLOWIwr, A 1 SECTOR WklTE 



fSFLECT LIMIT / 1 SECT XFER 

> WRITE 11 

»t.iAIT IPPlMS (OR UNTIL "DOME") 

lERROR IF "OP ODNE" 5 
;0R "DP PUSY" 8 1 



»SFt IF A 1 SEOTOR 

;i«RITF CAUSES "DATA LATE" 



;SFLECT UNIT / 1 SECT XFER 

rwRITE II 

JWAIT li^PlMS, (OK UMTIL "(^ONE") 



?"RE01'' ODES NOT CLEAR 
;"0P FLAP". RESULTS IW 
;"OATA LATE" STATUS, 

fCHFCK ENDINR MEMORY 
;A00RESS (CA REGISTER) 
/FOLLHWIMG A 1 SECTOR WRITE 



;SFLFCT UNIT / 1 SECT ¥FER 
; WRITE 11 

fWAIT IfclC^MS ( OR UNTIL "OONE" ) 
JACl»EMDlNr, MEMORY ADDRESS 
;CORRECT ENOINR ADDRESS ■ 
KBUFF)+4P1«*2, IN (ACPl) 

;ending mem aoor error, 

IACP'bGOOO 
»AClaBAD 



Pv.44 


h A 1 N' 


i' TiAAA 


i-r^hpiji-' 026: 


y^AAf) 


!'?a1 H!>i 


.1 3 4 4b 


'*66r^33 


,3447 


i-9tMt5? 


-•3 4Sti 


.'. '-J 4 1 i* 1 


I" 3 4 fi 1 


1 ? 3 M i-i t>i 


i^34fi2 


.16 3'-' 3 3 


i/ 3 4 S 3 


C-- 9 ':-i t^ b 7 


1/. 3 4 S 4 


1-61133 


/• 3 a ?? S 


\^-^5?i^: 


V- 3 4 5 f> 


i'!>ih?27 


yi34'S7 


r 6 6 4 .} 3 


,i34«'/) 


r.3vii;33 


.',3 461 


I 4 7 4 .' S" 


V' 3 4 6 2 


1/1 2 i/t (?! b 3 


/ 3 4 P 3 


1??414 


.• 3 4 ft 4 


/. 01 h P 4 2 


1 . 3 4 fi b 


Mf r.?4 3 


■/ 3 4 *1 H 


i-c'hp^i* n27: 


,34 ft 7 


" 2 ;■' 1 (■; " 


V. 3 4 7 i'' 


r<^2'^33 


'^3471 


c~ 9 !/• 1 S 2 


'3 47<i 


• 9 4 1 7 <f 


^/3473 


123PII' 1^ 


,3474 


i/ft.V»33 


i^347^ 


f^ 2 M '^ 6 7 


'/ 3 4 7 h 


.61 1 33 


v'3477 


5 6262C* 


^•3SM.'' 


'/C-*b2i'7 


■.''7>b'''l 


1 '^ ft h 4 3 3 


v'3SM2 


'/ 2 / 1 3 3 


v.3^'^3 


I P! 7 a t' M 


•' ^b(^A 


i,i 2 (^ ?•'' 6 4 


/. 3 5 1^ S 


122414 


.135?''? 


■•• C ft 2 4 2 


;^35i?'7 


;iMft243 


v':sb\^ 


m'. ft 9 4 ':'i n 2 B ; 


V 3 b 11 


:,- 9 1.1 1 ft f» 


("3512 


1(82^33 


i3f>13 


^' 2 IM ^ 2 


V-3S14 


t ' 2 4 17 4 


?3515 


123Pk'(^ 


v:.35l6 


iift3i'(33 


:-3!)17 


t')2I''"'ft7 


i 3b2t^ 


1' ft 11 3 3 


:' 3 b 2 1 


l'>2'^2'> 


.3ft?? 


I' Ct ft 2 2 7 


^35?3 


-,ft4433 


i^ 3 b ? 4 


1/ ft 3 ft 3 3 


./i3b?ft 


:■ ?> ft 9 4 9 


v>3bPh 


..■' t' ft 9 4 3 



S F T P 1 

L i1 4 1 , ^ IJ F f- 

noB 1 ,nsKp 

LHA (^.TfeSTD 
L 04 1 ,ri7 
A r- n \ , I'i 

DOC i',0 5KP 
L (■/ A '■^ , K d 7 
n & s n , l) S K p 

S[iP?.L 2,2 

flir 1, !)SkP 
LDA 2,r.i',37 
A ^. n 9,1 

IDA (^,Khll 

«; 1, 1 « tt I , 1^ , S 7 w 
EH ALT 
i.finp 

ScTPl 

L PA 'S ^ iJ ^ f^ 

LOA '.l.ThSTIt 

L. D A 1 , r 1 ft 

A 1 , i;* 

n n r i'l , n 5 < P 

|_ 13 A i') , K H 7 

n n A s ^ , 5 K P 
Slj«7L 2,2 
WATT 

njr 1 ,ns<p 
l.OA y>,c^'^7 

AKD r^,l 

L L) A 3 , K ft Ui 

<^liRa 1,W,5Zh 

EHALT 

Lnnp 

«?tTFl 

LliA r.ij'^iiFF 

n n « n , n .s K p 

LTA :•. ,TftSTM 
1. 1) A i,rift 
Ann \ , vi 
nnr i,nsKp 
If; A ■s<h7 
n n A s (-■' , S K p 
SUP 71. 2,2 
WATT 

niA r.nsKp 
SkPO'i nsKP 
fe'HALT 

I nnp 



JCMETK FPHt PPOPfcR ENOIMf, 
rDISK Apni^FSf? FOLinwlNG 
:i SECTOP WRITE OKi HEAD 
JSECTnw c 

r'TKit sc" CAiisFS "sri-sc»" 

; TH RP H.-QM 1111 TO tliAMi-- 
I AMD SFT5 "SI". 

f^:»ITf- i: 

»wAIT If/^PiMS rOR UNTIL "rJn^■E") 
ISFAD FNniNt; DTSK AOnwFSS 

JMASK niiT llNiTT tt 
JSt'CTOP s 1 

JEN'OIN.T, niSK APnWESS N'HT 
fHFAP-Ci, SFCTOP-l, SC»W 

JATTFMPT A 2 SFCTHP 

;'/'PITb. 

;FTf'ST ATTpi^PT AT A Wf-ITE 

Jin^ntP THAM I 5F.CT0P 



rSFLFCT liNTT / 2 SFCTDHS 
;wPTTE :i 

fi»AIT 1HC^!^S (OP llfvTIL "dONE"^ 
;PEA0 F^niKit, OTSK AQOPESS 
IMASK HFF liKfTT » 



rf^oT^r, niSK ahupess niOT 

jHFAn-(?i, SFCT-2, SCs'^ 
JACt^aGndn AOnt?, AClsBAO 

;ATTFfPT A 2 SFCTrjR wiRTTE 



; SELECT UNIT / 2 5ECTG»5 



;wfiITF 



I t 



JwAlT ICif'MS ^OP UNTIL "i'OME") 

JPFAH STATUS 

JNH "HP noMt" 

;Fn|.LOWlNG 2 SECTOR WRITE 

; (ACn»STATliS PEG. 



A TiidAb .MAIM 



'-^3527 

tl3530 

k^3S31 

^'3532 

03533 

C^3534 

1^3535 

'/3536 

i^3537 

P)354ti 

«3S4 1 

/3S42 

/3543 
ra 3 5 4 4 

t:.3545 
1^3546 
H3ft47 
i?355(?( 
^13551 
!?(3552 
.^'3553 

^3SS4 

^3^55 

I7>3556 

/3557 

t'3S6i^ 

ii3561 

1^3562 

c^35«3 

ri3564 

iS!3SS5 

03S66 

i/»3b67 

i»3575i 

t'3571 

£^3572 

ti3573 

^■3574 

t?3575 

fe^3S76 

^3577 

v^36t^Pt 



("PI624W D29! 

C»2til6d 

H62ca33 

0P(i)152 

C''3k!15P! 

1124171 

IS3H*3 

^2^1 17 

1231^ Pi0 

i^63(i^33 

t^2ii^(7!67 

1^61133 

152S2ti 

f j( (n «: o 'i T 
»' *' v/ c «; f 

t1P6433 
?3^133 
1474l?it^ 
(^2^212 
122414 

i'iffe242 

Ht«t>243 

^'ic?tb24« 031?: 

Mfi2i^33 
f'2(fllf5? 
(/«3P"33 
1-^2^1 Pib7 
infill 33 
l!52ft2'^ 
i':!?l6227 
1*66433 
»" 2 ^ C" 6 S 
'/ 3 4 M 7 PI 
t'SPlSdl 
1531H3 
I7522(?i 

034133 
lfi74l^Pi 
122414 

t'!(!)6242 
M{*62<J3 



SETPl 

LOA «,HUFF 

LDA PI,TESTil 
LDA g^nTVPE 
LDA l,Cll 
ADOL 2»2,SNC 
LDA l,C3 

Ann i,pi 
nnc i?i,DSKp 

LOA Pl,KB7 
nOAS i^iDSKP 
SlJBZL 2,2 

I.. * « V 

"Mil 

OIC l,nSKP 
LDA 2,Cil37 
ANn 2,1 
LDA fl,C42(^ 
SURfc l,M,S7W 
FHALT 
LOOP 

SETP1 

LDA Pi,HUPF 
DOB f1,nSKP 
LDA C^,TESTll 
PDC i?l,nSKP 
LDA PI,KB7 
noAS f),OSKP 
SUHZL 2,2 
WAIT 

Die l,nSKP 
LDA R,KH<5 
LDA 3,KH6 
LDA 2,nTYPE 
ADDL 2, 2, SMC 
MOVZP 3,3 
Ann 3,^ 
LDA 3,CH37 
AND 3,1 

ehaut 

LOOP 



I INSURE THAT "INC HEAD" 
IFUNCTIONS PROPERLY 
TRANSFER 7 SECTORS OR 13 
»SFCTORS DEPENDING UPON 
fTHE DISK TYPE 



ILOAD UNIT tt & *» SECTORS 

JNRITE li 

jwAiT i»v MS COR UNTIL "DONE") 
IREAO ENDING DISK ADDRESS 

JTHRniN AWAY UNIT «» 

;ACH*r,oon, head-i sect-i 

»AC1«BAD 

»CHECK "ADV HO", "INC HEAD" 

/attempt a 16 SECTOR i^RITE 
JVFPTFY CORRECT FNniNG 
fOISK ADDRESS 

JUNIT tt / 16 SECTORS 

f WRITE iJ 

t^MJ lR!Ptf^S COP UNTIL "DONE") 
;READ ENDING DISK ADDRESS 
/SECTOR 4 
/HEAD 2 

/SKIP IF 2311 
/HEAD 1 



/AC1«ACTUAL ENDING DISK ADDRESS 
/ACmCORRECT ENDING DISK ADDRESS 
/ 16 SECTOR TRANSFER. 



!? ;' 4 b . f^ A t V 



u ,^6i?il 


!•■ 1/ (s ? 4 r^ 


^•36i^2 


■-i ? ^ 1 6 M 


'/■3ftt?l3 


i''ft2H33 


/:^6'':^<J 


/ ? m 5 ? 


u3?>'^5 


/ 6 31" 3 3 


/136H6 


.' ? </' ••'1 ^ 7 


k'' 3 ^ f'l 7 


!■• e. 1 1. 3 3 


;/ 3 fi 1 •/ 


i^safigi^ 


>^3f>U 


.'(/'hpa? 


Ci3(;l? 


i^?,l1 oci 


.■i3ftt.i 


(,:?4(/f,M 


t^ 3 6 1 4 


.■'3iiti7 3 


1.1 3 fe 1 b 


l?.3Pvip 


i''3ftl6 


143^'/!-^ 


i^Sfrl? 


0.65433 


ii36?ii 


1P2414 


tl36?l 


i-n6?4? 


P*3fi?? 


,•'. i? b ? 4 3 


03623 


'.'iW6?4(?l 


..13^?4 


t,^ ? •/) 1 h PI 


!;-362J5 


i/3t''4;'7 


i-! 3 'S ? 6 


ic^lll? 


^'3^?7 


t'!''it4t*4 


C^3f?3'/ 


l'S14DiP, 


;^3^31 


J M I ? t* 3 


-13^32 


1514 I'i M 


'/3*>3 3 


1 • ? 1 f.^ l", t^ 


.'3ti34 


i^24ib? 


. 3 h 3 S 


J ?3<^^ w 


v.3ft3^ 


'.•'f'3"33 


■/.3h37 


p J! ^ 1 b i.l 


C 36 4l>: 


i'.^'<?C'.3 3 


"^3fr41 


1/ ? l>: W b 7 


'■3b 42 


f > 6 11 3 3 


•/36 4 3 


lbS?f?2r)( 


■/.3ft 4 4 


;-'« 7 IS 9 2 7 


w 3 f> 4 b 


-16 4 4 3 3 


^-3^46 


(i?:'.4 1? 


/.3o47 


J f,1 7 il ;/l r^ 


■/^ 3 *> S 1/1 


1 f" b 4 1 4 


'v' 3 P fi I 


>.v/h?4? 


vi365;^ 


(' 17 b ? 4 3 


w 3 f> S 3 


"1 P' ;.i 4 i.l fi 



D31 : 



D3?; 



SF.TP1 

LDA 3, 
00-^ '^, 
LP A i', 
noc tl, 
LOA 5^» 
no AS ^» 

SliHZL 
WATT 



LHA 
LDA 
LDA 

Ann 
Aon 



?. 

1. , 

1 



RUFF 
nsKP 
TfcSTU 

nst<P 

Kri7 

,DSKP 

2»9 

8UFF 
K614 
KB3 

nsKP 

.iSS7W 



FHALT 
LOOP 



Sf-TP 
I. n A 
L, f ' A 
MOVL 
JKP 

ihr: 
•- n V k' 
TMr 

LTA 
LOA 

Ann 
one 

LHA 

I. n A 
nnAs 

i.'ATT 
PI A 
LOA 

AN:n 

FH&L 
Lunp 



y'.nT 

P.HA 

** "*, 

2,2 

1 ,Th 

I- 2, 



VPF 

ni-i 



,871: 

2 

STIJ 

KP 
Ff- 
KP 
7 

5kP 
2 



>KP 
iD4 



1 ,ns> 
c^,DAr 
■M 

a. 1,57 H 

T 

n 3 3 



MTTF^PT A Ifi StCTOR WRITE 
JAWn VERIFY rORHECT ENDING 
»HFMnRY ADHWESS 

JUWIT *» / 16 SECTfjPS 

fwRITt li 

fiNAIT 1/PiMS (QR UNTIL "DONiE") 
rSTARTIKiG ADHRESS 

J Twn 

J 1 &!l , t^ pi (-1 

IfcNnivR h<tMDRY ADDRESS 
JERPnR FOLLOWING A 16 SECTO>< 
JwRlTt 

t ACfri»Gonn 

MClsBAD 

;CAUSF. "ENjn OF CYLlNHtR" 
nn OCCUR DURING A 
»2 SECTOR WHITF 

;CARTNTnGE DISK 

ISKIP IF 2311 DISK PACK 

»2314 ni5i\ PACK 

JGFT PROPER DISK ADDRESS TO 

f CAUSE "FOC" 

J ADD IM UNIT ft 

f FINALLY 

»LOAD MfcM ADDR, 

»wRITE 1! 

IwAIT ll?!l7yS (OR UKiTIL "DONE"! 
JREAD STATUS 



JKjO "EOC" or "FRR" or "DP DOME" 
?FnULOWlK'G WRITE OVER EmD CYL 
J AC^sEVPFCTED ENDING STATUS 
> Ari«E»^iDlN(; STATUS 



v-3bS4 i,i(73Fbf5 .41 

/3b5S [A!^'/f<7fi DADi: P?^ 

/3fifi6 fH'dfsJP 4f^3b 

p-.3e'57 £Ml«7fi U'^7'^ 

i^ 3 b fS / 1 !?■;■• fi 2 1 D A D 4 : 1 '/ ^-^ i' 2 1 



JCART HEAD 1 SECT 13 2 SECTORS 
;2311 HtAD 9 SECT b 2 SECTORS 
J2314 HEAD 23 SECT 13 2 SECTORS 
r'DP DONE", "FUC", "ERR", STATUS MASK. 



A (TlHiJ? .MAIM 



/36<S2 
i93663 
/3664 

1^3666 
M3667 
03670 
H3671 
['-3672 
t'^3673 
ti3674 
f/3676 



i/iPb?-(lPi D33: 

V124121 

133PiMC^ 

Ci 2 ^ 51 7 4 
1^^25133 
lPl24 0t^ 
^61133 
iri2f52P! 
titl6227 
^■164433 
1251 13 



M3fi77 .^I?I6243 



/ 3 7 c iX! 
I* 3 7 P* 1 
i^37Pi2 
r''37P'3 
037PI4 
1/-^ 37^*5 
t^ 3 7 6 
S^37'/7 
0* 3 7 1 14 
/13711 
/3712 
i.'37 13 
/371 4 
f/'371S 
/.3716 
1/3717 

.'37?^* 
1^3791 
i*37?2 
!/.3723 
M3724 
i^372b 
'/■3 7?i!> 
03727 
i;'37 3M 
i^37 31 
C^3732 
('.37 33 
4^3734 
&'.3735 
0^3736 
i^3737 



<^(Afi24t^ 0341 
li^24121 

l?3cn'P« 

•^fi3i?i33 
H2?!i?74 
nP2''i33 
1 CI 2 4 i^ PI 
Mfil 133 
lfS2*i2Cl 
t^Mfi227 
PP4433 
1/1 2 tf. P! 6 M 
123414 
'/■ti6P4? 
i^Plfc243 

''Hi624t^ 035: 
'/^tilS? 
C'P4i21 
123I7I«P1 

i')63Pi33 
ti 2 ii ?^ 7 4 
i''62W33 
lf^24(('(?i 

1S252M 

i^fi5433 
M2C^217 
1P2414 

f'^!^<?242 
0516243 



SETPl 

LHA PijTtSTU 

LPA 1,C17 

ADO 1,PI 
one P!,DSKP 
LDA W,KB2 
POB M,PSKP 
SUB 171, (?l 

noAs a.DSKP 

vSURZL 2,2 
WAIT 

niA i,nsKP 
^^flVL« 1,1, SNC 
F H A I. T 

Lonp 

StTPl 

LHA CMtSTII 

LDA 1.C17 

ADD 1,PI 

Por PijOSKP 

LDA P'jKBP 

no» M.DSKP 

Sl.iR C'!,PI 

no AS v4,DSKP 

SLIBZL 2,2 

I" A I T 

niA l.DSKP 

LDA i:»,KHl4 

ANDa 1,0,SZK 

FHALT 

LOOP 

SfeTPl 

LHA Pi,TESTlJ 
LDA 1,C17 
ADD 1 , P! 
Dnr (?l,nSKP 
LDA (?i,K82 
DPH C!l,nSKP 
SUH P,Pi 
nCAS M,USKP 
•'UBZL 2,2 
WAIT 

niB i,nsKP 

LOA P!,C2i?l4M 
SUBk 1,«,SZW 
FHALT 

Lonp 



»ATTEMPT A READ 

I ( FIRST RFAD i iUl ) 



;UMT W / i StCTOR XFER 

ICA ■ 20PIC1P! 

IREAO M 

;WAIT l«PIMS (OR UNTIL "DONE") 

»REAn STATUS 

t OOKife 7 

IND "DP DOME" ON READ 

;AC1«BAD fcNDlNR STATUS 

lATTEMPT A READ 
I 1 SECTOR 

fUNlT « / I RECTOR XFfcR 

ICA a 2</i^\d7i 

IREAD li 

;WAIT IPiPihS COR UNTIL "DONE") 

;rpad status 

f'data late" status on 

>a 1 sect read 

lAClaHAD ENDING STATUS 



»ATTFMPT A HEAD 
f 1 SECTOR READ 



f UNIT « / 1 SECT XFER 

;CA » pMPn^pi 
;REAn 11 

UnAIT ItlPthS COR UNTIL "DONE") 

;READ STATUS 

lENDlNG MEMORY ADDRESS 

fIS WRONG FOLLWOINR I SECT READ 

» ACMbGOOD 

>AC1«BAD 



A C?i 1.-I 4 h . K A 1 M 



'.- 3. ? d /. 
1/3/4 1 
.13742 

1^.3743 
i.37 4a 
v.374b 
.'37 4h 
'.'.37 47 
vi37S'/ 
■/137S1 
(,-,3752 
^37ft3 
;/i37"S4 
^37*>5 

v.37Sb 
/3757 

c>'37'<i^ 
? 3 7 « I 
•,'37 6'*^ 
■/ 3 7 "^ 3 
/. 3 7 6 4 
/ 3 7 fi ^ 
■/37*>f> 
^■37«7 
/ 3 7 7 c 

v^377 1 
v^3772 
^-37 7 3 
i^3774 

i/1 3 7 7 b 



1/ W h P 4 (1 
f/24iai 

l?3[mc» 
=/.63i^33 

ii 6 ? I? 3 3 
i/i « 1.1 1 3 3 

0'»«fi?27 

1^3414 

i"M6?42 
1>(?16?43 

.1 (?! h P 4 '^ 
(■» P I'M ri ? 
1/1 ? 4 C^ 7 4 

1/1 fi 3 3 3 
V?\fi»/A 
i/' « ? C 3 3 
S C1 1 3 3 
l52f»2W 
r;, M t> ? '/? 7 
!l?b113 
1/ f^i 6 2 4 P 
(.iWfc243 



n3P: 



SUP I 

KjA i'i,TtSTli 
1 ,C17 



037 



LOA 
Apn 
rnc 
I r A 



1 ,n 



f'" , n s K p 

'•^ , K n P 

is n s >f p 

KjIOS l)?^KP 
SljW/L ?»2 
WATT 

L.nA !^,C7ii 

A N' n tt I , W . S 7 h 

fhalt 
Lonp 

L t' A '' , n T Y P F 

^^ n V L 1-% '■'*■ » b 7 r. 
Jt'p HI 
seTPt 

I. ('A 'STtSTM 

l.KbP 
I/. ,nsKp 

i-^ , K R ? 

i.^nsKP 

U S K P 



LHA 

noc 

I T'A 

Ki 1 n s 

WAIT 
M V L » 
FHALT 

Lnnp 



?.9 

\ , 1 ,snc 



JATTEmPT a PF-AH 

: 1 SFCTop RFAn 



ni^IT it / 1 SECT xFtP 

> C A ■ ?.\/i0^lif/ 
»RFAn 11 

JwAIT lt/iC"MS (OP MNiTIL "OOnE"! 

; AClsSTATUS 

{EPWnp STATUS FGLLOwlKG A 

JPFAH, "StFK to", OU "APHPESS/ 

JU^-^SAFF" 

IIF CAPTPinCF DISK 
fOHN'T ATTFHPT A FOWMAT 
IMOHF PtAO 
;attfmpt a RFAP 
tlhf thf fhpmat wnoF 
;CFIRST USE HF FORMAT -ir^nM 

fiJK'IT «» FORMAT HODF BIT 

; C A s ? (?i (^ t^ 
» R F A n 1 I 

;wAIT UKz-MS fOB UNTIL "i:DNE") 
; Ari=STATuS 

;Kin "pp nnK'E" FriLinK-lKir, f^'T RtAP 

jCHEflK "F nnMt","R/i^ DOME" 



,priT 



9iiAAi) .MAIM 



V7>77t ^?K^?i7 EIJ 
03777 (1W6262 
V.A(fl(^i^ (;i p* t:] (^ w 
t540ii^l t^Pi6?42 
W4c^M2 ?iC(p\422 


JSR PIStT 

OOSkK 

(A 

FHALT 

JhP EIF 


i/iAPilAA ?IP»54W3 


GtN[UT 

7t«0S 

PRGtND 


Pi4e!C1fi C1P'626Pl 

i?>4piipi 0W{^(:^i7 
£^45^ii 0Pi6242 
04vM2 l'1i^{141? 


WRITF 
PPRfcNJD 
17 

EH ALT 
JfP FIE 


i?4013 Pi(^6?b7 
tl4M14 !>tP!7?MS 
t^4e»t5 0I7I0PI17 
{^4M16 CflC»fi?4? 
V?4W 1 7 [?ipi04i?i5 


PEAp 

P»f;fcMD + 40IH 
1 7 

F-HALT 
JNP FIF 


i^49i2« (^(^6261 

(i4«22 P!!?'72i^5 
J'4^23 i.iPI^24? 
04024 f»6243 FIF: 


ChFLK 
PRGtND 
PWGfcMD + 4Pl« 
FHALT 
LOOP 


04^25 WCI16237 F2: 
V14P26 HPh?62 
^14027 psJflPiC^Uffl 
P?4f<3i1 P!H6242 
i?i4pi31 RC1|?i422 


JsSP fISET 

nosEK 

FHALT 
JMP F2F 


?4P!32 M«625fi 
04(^33 tiH54w2 
C54R34 HCefiUS 


r,FMOAT 

r!MF.S 

PRREND 


,fc)4M35 WPI626PI 
l^4H36 (^?I66PI5 
114037 0PIHPI17 
Cl4t140 15^6242 
H4fl41 v^Wt«4l2 


WRITF 
PRGtKJD 
17 

FHALT 
JMP F2F 


«4«42 [4PI6257 
(^4H43 61Pi72Mfi 
fe!4Ci44 (^PipiPil7 
414H4& Pipl6?42 


READ 

PRGtMD + 4ati 
17 

FHALT 
JMP F2F 


PI4^147 PIW6261 

PI4051 PiPi72i/i5 
C14PI52 i/itf!624? 
t(ii4y:S3 ti0!6243 F2F: 


CHECK 
PRREMD 
PRGEND + 4C10 
EHALT 
LOOP 



>D0 SEEK/WRITE/READ 

ICHECK DATA 

»SEEK CYLINDER ZERO 

JERROR DURING SEEK, ACliSTATUS 

iSKIP REMAINDER OF TEST 

;GFNFRATE DATA 
JDATA.ALl ZEROS 

idata buffer address 

»Dn THE write 
;data bufffr adoress 
;hfao-0, sect-(?i, 1 sector 
rFRRHR IN wrttf, aci«status 

;SKIP REMAINDER OF TEST 

;RFAn THE DATA 

IDATA BUFFER ADDRESS 
fuPAn-n cPrT.M i ccrma 

IFRWOR IN BEAD, ACliSTATUS 



rCDMPAPE DATA BUFFERS 
fGOOD BUFFER 

;qii£stionable buffer 

JFRWDR, ACPIsGUnO HHRD 

;acis8ad word 

JOn SEFK/'aPITE/READ 

; CHECK DATA 

>SFEK CYLINDER ZERO 

fERRDR DURING SEEK, AClsSTATUS 

;SKIP REMAINDER OF TEST 

JGFNFRATF DATA 
/DATAsALL DNFS 
IDATA BUFFFR ADDRESS 

IDD THE WRITE 
>OATA BUFFER ADDRESS 
fHEAD-i?», SECT-PI, i SECTOR 
lERROR IN WRITE, AC1«STATUS 
;SKIP REMAINDER OF TEST 

fREAD THE DATA 
IDATA BUFFER ADDRESS 
JHFAD-PI, SECT-i7l, 1 SECTOR 
lEPRDR IN READ, AClsSTATUS 



ICOMPARE DATA BUFFERS 
IGDDD BUFFER 
JQUESTIONABLF BUFFER 
lEPRDR, ACPlBGOnO WORD 
>ACl«BAD WHRD 



A. (Til-. fS[i .'^AT''! 



L'- 4 i-i ^ 4 vi/h^A? F 3 : 

i,i 4 1'l 5 !i ./ f «S ? 6 2 

C'- 4 C^'' ^ fS tt r». ?i pt ui P 

v 4 v' fi 7 ;^ t^ h ? 4 ? 

^. 4 i," ft I '/. P 6 ? b ft 

i/ 4 C fi ? u' l' f", 4 2 1 

(/• 4 '• ft ;^ ii t' ft ft /I !^ 

^" 4 CI ft 4 (/I "< h ? b !^ 

;• 4 '/' ft S ''" " ft ft I i *i 

i/i 4 1^. fi 6 i1 ^ / C^l 1 7 

■/i 4 ^-i ft 7 '.'i f/i ft ? 4 ? 

iA 4 ^1 7 1^ (■' f^ i-i 4 1 2 

u' 4 /. 7 I C Ci ft ? 5 7 

1,1 4 ti 7 2 '^ t? 7 9 1''' •> 

,1 4 1,^ 7 v'i '■/ Pi (?» 171 1 7 

i/ 4 ^ 7 4 (. > P( ft ? 4 ? 

i,-* 4 !'! 7 b >'^ P"/ 4 1.1 ^ 

i,i4i,i7fc i-^C'ftPftl 

r». 4 i/1 7 7 -I f-i ft ft >' S 

•/. 4 J, C t,i ;a I? 7 ? i-^ 5 

r-. 4 1^1 </■ (' " ? 4 ? 

!/4 1Pi?' v'CftP^.^ F3F: 

ti4 1!?i>^ i'6't)?.37 F4J 

/ 4 U"! 4 r/! f ft ? ft ;? 

i^, 4 I r b ^i ffl f ! 95 L-* ffl 

v-i 4 1 R ft i1 1." ft ? 4 ? 
i/i 4 I ;" 7 f ('' ir' 4 ^ ? 

(/i 4 1 1 M 51 (.1 6 ? b ft 
;/4J11 >i<?b4n 
/ 4 1 1 ;<? i,i P b ft t.'. ft 



/ 4 n v5 
C: 4 I 1 4 

1/1 4 n b 

f 4 I 1 ft 
^4117 

,;i 4 I ? ti 
C^ 4 1 ? 1 
f/4 1?2 
/4l?3 
M 4 I ? 4 

'/4 1?b 

H 4 I ? ft 

K- 4 1 ? 7 

H 4 1 3 W 



■A O' ft ? 6 ■/ 
M W fi P P !S 
■^ fl i;) Pt I 7 
VI f b ? 4 9 
f/ (?*(,' 4 1 9 

yif*ei?57 

i' a 7 ? 1^ S 
,^ c» ^l PI 1 7 

/< I? fS 9 4 2 
r.-! f^ v; 4 i^ ft 

;■ f?i 6 9 o 1 
y- p 6 ft P ?* 
viw79?'ft 
&i M ft 9 4 9 
iiMft943 



F4F; 



JSP «lSt:T 

nnst< 

F H A L T 
TfP F3F 

w fJ 1 T F 
p^ r.t >•'■>• 
1 7 

FM6UT 
JMP F3E 

PF AH 

pf<t;FMD + 4f^i'' 

17 

FHALT 
JMP F3F 

r I- F L K 
PKGt^JO 
PFF;tNL/ + 4P>fi 
FHAl.T 
LOl'lP 

JSK «I«fc.T 

n n s F K 

FHALT 
JNP F4F 

PfcMDAT 
ALT! 

P P R t M 

URIIF 

PMr,LMD 
17 

F.HALT 
JPP F4E 

P F A D 

Phr,t^ii)*4M(^ 

17 

FhALT 
Jr-'P F4F 

CHFCK 
PkfifcMD 
PKr,fcND + 4MK 
FHALT 
LfiOP 



IDH SEFK/»HPITt/HFAD 

JCHtrK DATA 

»SFEK CYLIMOFR ZEkn 

»FPPnw DUPlKit; SEEK, ACl«STATilS 

JSKIP Rt^AINnER OF TEST 

fGF^FRATF DATA 
jnATAKNUMBFRS Pi-377 

;data hufffr address 

;Dn THF WRITE 
;nATA BUFFER APQRtSS 
jHEAn-M, SFCT-(i«, I SECTOR 
rEPROR IN WRITE, ACl«STATllS 
rSKJP RhMAINHEP OF TEST 

fREAD THE DATA 
JDATA PUFFER ADDRFSS 
>HFAD-t!^, SFCT-W, 1 SECTOR 
;ERRnR TK READ, AClsSTATUS 



fCriMPARE DATA RUFFERS 
fGnon BUFFER 
JOIlESTIO^JABLF BUFFER 
JFRRHH, ACPiaROnU V-ORD 
JACI»HAD wnRH 

jnn SFFK/i«RITF./REAn 

;CHFCK DATA 

JSEtK CYLlKiDER ZERH 

JERRHR DURIIvir, SEEK, AC1«STATUS 

JSKIP PtMAlNntR OF TEST 



JGFNFRATF DATA 

JDATA PATTERN = 1 l(?l 1 1' I 

;DATA buffer ADQRtSS 



ETC, 



{DO THF WRITE 
»DATA BUFFER ADDRESS 
,HFAD-i(?>, SECT-Pi, 1 SECTOR 
JEPROR IN WRITE, ACl-STATUS 
ISKIP REMAINDER OF TEST 

;RFAD THF DATA 
;nATA BUFFER ADDRESS 
;hFAD-P), SECT-P", 1 SECTOR 
»ERPOR IN READ, AC1=STATUS 



{COMPARE DATA PUFFERS 
jr,onD BUFFER 
{QUeSTIONABLF BUFFER 
I ERROR, ACfisROOO WORD 
fAClaiBAD WORD 



A «v'5l .MAIM 



04134 PiPiyPI^W 
(*413S 1^1^624? 
W4136 5^Pi042? 

i?i4137 l^«6?56 
'f5414H ui!?i&413 
P<4141 B«6fift'S 

('.4 142 oit?i6pe>(?i 
i«4l43 0i7l66HF 
5^4144 li^PiilWl? 

!A A i A t< nmn A n 

i^4l46 0RM41? 

^'4147 fci(^6?^7 

1^.4 IS I/' i^M72t'i? 

v^4lSl (/ipli^iwt? 

P^4152 ciP!b?4? 

i/^4l5i (^Piyi4(:^?i 



F5: 



i^41S4 
i^41fH5 
P^415fe 
?4lft7 
P^ 4 1 « / 



i'l p* ft 2 ei t 
1^ C 6 ft I'' 5 
91 M 7 ? D' R 
(A t^ ft ? 4 ? 
iH»6?43 



FSE: 



JSR •ISET 

nost'K 

PI 

EHALT 
JMP ESE 

GFNDAT 

PRfifcND 

WMTE 
PPRkMD 
17 

EHALT 
JMP ESF 

PEAD 

PHGtMD*4P!P! 

17 

FhALT 

jMP FbF 

CHECK 
PRRkNO 
PRGfcWO + 40lM 
FHALT 
LOOP 



»Dn SEEK/WPITE/READ 

;CHECK DATA 

fSFEK CYLIMDER ZERO 

»ERRnR DURING SEEK, ACUSTATUS 

>SKIP REMAlNr-ER OF TEST 

IGENERATE DATA 

;DATA PATTERN! « Pil0iq)l0 ETC. 

;DATA BUFFER ADDRESS 

»Dn THF WRITE 
fDATA BUFFER ADDRESS 
IHEAD-(^, SECT-P!, I SECTOR 
JERRDR IN WRITE, AC1«STATUS 
JSKIP REMAINDER OF TEST 

>READ THE DATA 
lOATA BUFFER ADDRESS 
»HFAn»w, SECT-?, 1 SECTOR 
TERROR IM READ, AClsSTATUS 



icdmpare data buffers 
jrdoo buffer 
;questionable buffer 

JERRDR, ACi^sGcooD WORD 
lACliBAD WORn 



^ C7iV^2 .MAIM 



t' 4 1 6 4 



i^?^ii4? ij:'A v^jPandhm 

H4nl4,li STAf^.HfeLf^AN 

vi pi 6 p rt ? n n s fc K 

C/t p» (1 fcU'- 5^ 

i^t^6P4? FHALT 

i4Pir/'424 JhPphP 



»Dn SEFK/wPITt/READ 

KHETK DATA 

JSFtK CYIIWDEH ^ERO 

{FRROR DURINT, SEEK, ACt^STATUS 

JSKIP REMAlNOfcR OF TEST 



1/^417 1'^ 
1-^4171 
V. 4 1 7 2 
IV! 4 1 7 v^ 
1*4174 



up(/<l 43 
04tll4? 

^Plh917 

1^ PI ft fi / S 



,^M175 £^Pi636t" 

i/i 4 1 7 6 t* PI h fi t» P 

1/14177 l/(PtiP>l7 

,-• 4 2 1« i?» H CI fi 9 4 ? 

V^ 4 2011 Uti' 11419 

?i42l''iJ MW6257 

^ 4 2 M A M » 7 ? ^' ft 

i/i42W4 i^(^id!ni7 

?l4?(^b C^Mbp49 

i^42Pip C^(?loi4/5 

i-* 4 2 P 7 y> M 6 2 f^ 1 

K. 42li/; /!?'6«,'5 

;i4?ll '^^721".^ 

^4212 v^wft?4? 

/.421i ''!Pi6243 F6F 



LfiA -i,RtL.RAN 

ST A '7!,RAMi:)nM 

r,EMivAT 

RA^l 

PRRtNO 

WW TIE 

PRntNO 

17 

E H A L T 

J^ P E6E 

Rf ALi 

PRr,tNi) + 4i?>i^; 
17 

FHALT 
JMP E&F 

rhFLK 

ppr.tNi) 

Pi*f;tf-'i)*4'7»i;' 

EHAl.T 

Lorip 



KiFNFHATF PATA 
»DATA s RAK'OOi-i 
>DATA BUFFER AODPESS 

IDO TMF WWTTE 

;data rufffr AnnRER.s 

;HFAn-P), SFCT-PI, 1 SECTOR 
JERRHR I^ WR!TF, AClsSTATuS 
ISKIP PEMAINHER OF TEST 

jkfad the HATA 

;nATA HUFFFR ADDRESS 

• HFAn-W, SECT-PI, 1 SECTfjR 

JFRRHR IM PEAD, AClsSTATliS 



fCOMPARE DATA BljFFERS 

jr.nrjn piifffr 
;questio'^aplf buffer 

fEPROR, AC« = GOriD ^HRD 

;acisBad word 



A 9lt^S5 .MAIM 



IDTSCUSSTPN np TESTS t7/E8 AND E9/Elt^ 




UTU «»■■ AD flUWATa A ^tKn TMIrlM AN A T T fc, M P T 

TO SEfcK TP CYLINDEP 4 ACTUALLY SELECTS 
CVLINiDEk V, DATA WORDS OF "4" ARE WRITTEN 
THERE ANO WHEM THE DATA AT CYLINDER PI IS 
LATER READ AND CHECKED IT WILL BE "4" WHEN 
IT SHOULD 8E "PiM. 



;TESTS E7&E8 CHECK ALL CYLINDERS IN SEQUENCE 0-312 
MND TESTS E9&EI?! CHECK THE CYLIMDERS TN OREDFR 
»FRDM 31? TD 0, USING THE CDHPLEHENT UF THE CYLINDER 
JNIJMRtR AS THt DATA WORDS, 



A Pti^!S4 ,M4IM 



i.1 il ? 1 4 ) f i? 4 1' !> 
.1 4 i* 1 S CA 4 [', 4 ? 
:^a'/\b 1/^(^(^267 F7: 



•4? 17 

/ 4 i> 9 r- 

/4JJ91 
V 42?i? 
(422 w^ 
■/■■ 4 2 P 4 

i':4??1 

i' 42?7 

v<4i;3^' 

/4?33 
fi4?3 4 
t^ 4 ? 3 b 
-•. 4 ? 3 ft 
/I 4 2 3 7 
:/ 4 2 4 -^l 



r/ C« ft ? f? ? 
l' ^ (,» f? 1,» t' 
l/i (■'. b ? 4 9 

ri K /. 4 1 1 

^1 1?" 5 4 1 7 

t/s v^ h 6 v'l 5 
1/ (' 6 ? b w 

n '/ ^ fi /i «> 

i-i W (1 !? 1 7 
tiC»ts?4? 
t'l r'l 1/1 4 VI I 
^1 i? fi ? 4 3 
P''lP7e>4 
v'; 9 1;^ 7 rt 3 
c;.?49v'7 
1?2<127 
ilC»l?i7bfi 



E7.1 



F7F: 



RTA c»,F7,l 
JSR PIShT 



n S h K 

FHALT 
J^^^' F7e 
G h f'J u A T 
C Y I. ^■ 

PFr,tKir) 
17 

f.halt 

JKP .4 1 

IS7 F7.1 
UDA I'^P'/.l 
LHA 1,Cil2 

JMP F7 



;CYL. AnnwFSSIMG CHECK. SEE DISCUSSION 

rPPECEniNG E7. t^PITE ON HfcAD-vl, SKCTOR-M 

;nF EACH CYLINHER. IN EACH SECTflR DATA 

lEOUALS THF CYL «. v-WlTE IN ASCENDING 

rORDFR FROM CYL (^ TO 312. 

JSEEK 

.'CYLTNOtR NUHHEN CIT CHANGES) 

lERROw niiRlNG SEEK, ACI«STATIIS 

JSXIP TO END OF TEST 

IGFNFRATF DATA 

JADORESS OF DATA GENERATOR 

JLIATA RIJFFER ADORFSS 

;i«RITE I 

;r)ATA RUFFFR ADDRESS 

JDISK ADDRESS 

;FPpn» DURING WRITE, AC1*STATUS 



t (F7.n»CYL ** 
iOn IT DNCF FOP 
JEACH CYLINDER 



' -• 4 ? 4 1 


1 « 2 4 / '^ 




Sl.iW ,.1,^^ 


P4242 


l/> 4 (.M ti 3 




STA f^,Ef<,l 


u!4243 


Vl"ifi937 


F8: 


JSR »ISt;T 


i" 4 2 4 4 


i,> n h 2 H 9 




nost-< 


P 4 2 4 S 


H CI v1 C (.■< CI 


FB.i : 


PI 


I ' 4 2 4b 


V1M6949 




FHALT 


t-: 4 2 4 7 


i,i r/ M 4 19 




.IMP FBF 


/425W 


Ot'bPS? 




RfcAU 


C42«>1 


ClffifiC-ifS 


F«.2I 


P R R t Ni 


*/ 4 2 f) 2 


!'i t^ l/i (' I 7 




17 


/42S3 


i^t^b?42 




FHALT 


i,i42ft4 


ul M ^1 4 1' *> 




JhP F8F 


v^42R5 


1-^26774 




L n A 1 , « t B , 9 


?, 4 2 "S fS 


M9fe'7b7 




LDA C1,E8,1 


yA?.^? 


19241 4 




5LiP» l,il,S7R 


r/ 4 2 fi l^ 


ci!:'b942 




FHALT 


t ' 4 2 h 1 


•,iP»ft943 


E8f: 


LDOF 


i^42«i2 


1 i/1 7 h 3 




ISZ F8.1 


i" 4 2 *i 3 


P'.2i/^769 




LDA fSES.l 


./- 4 2 « 4 


vi 9 4 9 0^ 7 




LDA 1,C312 


i'' 4 i" (S fj 


192427 




SljRZ Ui'ljSHM 


i' 4 26 6 


i/i CI vl 7 ? ? 




JKP FH 



t 



JCYLTKDFR ADDRESS CHECK. SEE DISCUSSION 

;PREVIOUS TO TEST E7. kEAD FIRST SECTI 

jnF EACH CYLINDER AND CHECK FOR PROPER' 

IDATA, TN EACH CASE DATA ShnuLD EQUAL 

ITHE CYLINDER *♦, 

;SEEK 

fCYLlMDER NUMdFH (IT CHANGES) 

JERROR DURING SEEK, AClsSTATUS 

JRFAD 

MUTA BUFFER ADDRESS 

JDISK ADDRESS 

jERWnp DUPING READ, ACIbSTATUS 

fSKIP TO END OF TEST 

; FIRST i*ORD IN DATA BUFFER 

>SHOULD 1 CYLINDER « 

f ACaeGDon 

; AClsBAD 

JRFAD THE TEST DESCRIPTION 

JREPEAT THF TEST FOR 

JFACH CYLINDER 



A <7>\t>5f> .MAIM 
5^4270 ^Ai'Aid^ 



JSP «»IStT 



k-.4?72 


t't«6262 


nnsEK 


y'4274 


0i(?i!2pii,it« F9, 1 1 


f» 


5^4274 


&1PI6942 


FHALT 


5^4275 


piP'i;i41 1 


JMP e9E 


^^4276 


^^6256 


r,fe'NDAT 


1^4277 


CtC'h415 


rVLNC 


t'43P'W 


0^66^5 


PRGfcSin 


843£^1 


tip!6?bl?i 


WRITE 


C^43C^2 


M d 6 6 Pi 5 


PRRtWlJ 


w 4 35^3 


i-i(?iMff 17 


17 


fr'.43P'4 


i'il>'fe242 


EHALT 


«43P'5 


!^Cffl4iM 


JMP ,+l 


fr)43i;ift 


I^(7'fi243 E9E: 


Lonp 


J'43P17 


i<1l47ft4 


PS7 E9,l 


51 4 3 1 tj 


i^pin4m 


JK-'P , + 1 


^M31l 


w?!^??)? 


LPA C!',E9,1 


^4312 


1^11^3 


MnVL H.i^.SMC 


■^4313 


0P'l?'756 


JMP E9 




NUMBER CIT CHANGES) 
iNfi SEEK, ACliSTATUi 
NO OF TEST 



;SEEK 

fCYLlKinEP 

»ERROR DUR: 

ISKIP Tn END OF ,u«. 

FGENFRATE DATA 

lADDRESS OF DATA GENERATOR 

IDATA BUFFER ADDRESS 

f WR ITE i 

»data puffer address 
;disk address 

lERRDR DtiRING WRITE, ACliSTATgS 

f tE9,l)»CYL * 
»D0 IT ONCF FOR 

;each cylinder 



M4314 i'i2Mpt^7 
^71 4 3 I 5 ('1 4 i;i 4 3 
^^4316 /06P37 ElCi: 



('■4317 
kU390 
J^4321 
(^4322 

ii4323 
04324 
^14 32 5 
0^4326 
0^4327 
P433vi 
5^4331 
S^4332 
t^4333 
04334 
«04>S35 

i;^433e 

^4337 
If A^A\A 
i?434l 
74342 



Pi pi Pi p< 1^ pi 
1^01(524? 
tlP(P'413 
t1P)62f57 

P!C«(1P!17 
vfl 1716242 
M PI (fl 4 14 6 
<r9677A 
M2(^7ft7 

122414 
i?>?lf5242 

^i(*6243 
014762 
M t!1 CI 4 0) 
M2(^76PI 
lC^lli?i3 
0010754 



ElPl.l: 



ElPi.2: 



E1C1EI 



LOA (^,C312 
RTA Pi,Fl/,l 
JSP PISfcT 



DDSEK 

PI 

EHALT 

JMP EIPIE 

READ 

PRGkND 

17 

EHALT 

JMP ¥A<At 

LDA 1,#E1PI,2 

LDA t^,Fl!^,l 

COM PI, PI 

SDB* 1,1^, SZR 

EHALT 

LOOP 

DS7 Eir^.l 

JMP .fl 

LDA C1,El«,l 

MDVL 0,0, SNC 

JMP Ein 



JCYLINDER ADDRESS CHECK, SEE DISCUSSION 

^PREVIOUS TO TEST E7. READ FIRST SECTOR 

fOF EACH CYLINDER AND CHECK FQR PROPER 

JDATA. IN EACH CASE DATA SHOULD EQUAL 

JTHE COMPLEMENT OF THE CYL » 

JSFEK 

ICYLINDER NUM8ER (IT CHANGES) 

TERROR DURING SEEK, ACUSTATUS 

>RFAD 

>DATA RUFFER ADDRESS 

»DISK ADDRESS 

»ERROR DURING READ, AC1«STATUS 

;SKIP TD END OF TEST 

IFIRST WORD IN DATA BUFFER 

ISHOULD « CYLINDER U 

MCPtaGDOD 
fACliBAD 

jread the test description 
;rfpeat the test for 

;EACH CYLINDER 



.tOT 



171 1? 56 .MAIM 



;niSCll«?Sln'^ OF THt sector ADDHFSSING CHfeCK, 
>(TtSTS Fll/Fl? AKD Ei:S/Fl4) 

;usiMfi cviiNOFP-pi, HFAo-pi lf■:<i^ en wPirts on 

rEACH RurCFSSIVfc SFCTO^' TMDIVIDUALLY F^?D^' '<1-5, 
JOR M-11. I*^ f-ATH CASE EAt:H DATA WORD EQUALS 
;THfc SFCTno MliMbFf^, TEST Fl? PfcADS THE IfvOIV- 
JIDUAL SECTORS BACK IN TWt SAMF nwOEP AnD 
JCHECKS THF DATA. TEbTS fc"l3/F14 PEHFOPM THE SAl-'E 
ITASK FyCfPT THAT THE ShCTHR SFfOllEMCE IS IN THE 
/REVERSE PWOFH AMD THt DATA wWITTE^' EyHALS THE 
JCHmPlF^FnT of THt SECTOR NIJMBFK, 



;thi? test 

JSELECTIPK 



IS nfcSlGNEI) TO 



r.ATCH ERRONEnuS SECTHI^ 



: I.E. If- "SC?" IS ALWAYS AT GRnijND wHEN SECTOR 

2 TS SFLECTtn, SECTOR (^ WILL ACTLIALLV 
; «t CHOSE?^ AMn "?'S" ("'ILL PE **»VITTEM ThEWE, 

f If: TMfe SDHStiniiFNT REAP A DATA COMPARF 

, FRPUR V.ILL KESHlT wITh THE Gnuns'V:", 

; A f i n THF H A n s " 2 " , 



t 4343 
i? 4 3 4 4 
ii 4 3 4 5 

&*434b 
t'. 4 3 4 7 
5»43?5H 
i'»435l 
!>43S2 
^'4353 
/. 4 3 S 4 
1/^43'^b 
PS43IS6 
^43'S7 

>l 4 3 ^ CI 
?43P1 
'/" 4 3 fi 2 
c-^ 4 3 "S 3 
t- 4 3 ^5 4 



1 1' 2 4 P" C 
t>4i/)157 

f4'/4 13 
P'. ft 2 37 

W 1^ ft i^ ti 
t^ t> (3 2 4 2 
M P g^ 4 n 
C':'^625fi 
t^ '/ b 4 4 1^ 
l.". t* 6 ^ fri *» 
/. u» b 2 1> (^ 

(/< W (-^ pi 1 7 
v' 0^62 42 

■1 P C^ 4 vi t 

i,-: f* ft 2 4 3 



Fii : 



EU.l 



EUE: 



pi , (A 

-^^SECT 
?.C17 

v' . F n , t 
«IStT 



SljH 
ST A 

l.n A 

ST A 
JS« 

n n S fc K 

M 

FHALT 
JMP Fl IE 

r. E •*' D A T 
S b C T M 

P H G t ^' 1 1 

wwTTF 
PFGtMi-) 
17 

EhALT 
JMP . * 1 
L n n p 



JSFE DISCUSSION' PRECFHIKG THIS TEST. 

MPITfc IjM CVL-W, HFAD-P', ONCE 

fFOh! EACH SECTOR. I Ki EACH 

rCASF THE DATA wORnS EQiAL 

.'THE SECTOR NlJMbEw 

JSEEK i 

ICYLTMHER C' 

lERWnp IM SEEK, ACIsSTATUS 

{SKIP TO END OF TEST 

JGFMFPATF DATA 

.'AOORESS OF DATA CENJ ROUT. 

{AOORESS OE DATA BUFFhR 

JWPITE 1 

{DATA RllFFFW AOORESS 

>nlSK ADORFSS (IT CHAKiGfeS) 

;ERpnp IN wpTTF, ACl=STATiiS 



i^ 4 3 ft b 

;.' 4 3 fi « 

t' 4 3 7 ti 
i''4371 
(,"4372 
t 4>S7 3 
{'4374 
v'' 4 3 7 S 
/4376 
(^4377 



■;il;^lb7 
^i2vl773 

[t24?»ft3 
123iai*H 
./i 4 ii 7 7 f 
(^ 2 4 1 b c> 
ul ? :/ 2 '/^ f^ 
127 11^3 
v^3M21(' 
112 4/4 
C.1 tl H 7 S R* 



IS? 

LP A 

LOA 

At.'O 

STA 

L (.' A 

L(iA 

AODL 

Lt A 2 

SLIP 

JMP 



StCT 

'% E n . 1 

1 , K i.t1 1 

'^ , E 11 , 1 
1 .niYPF 
2, CI 57 

1, I rSMC 

,C317 
^,2,SZR 
Ell 



MMCRE^E^iT THE SECTOR 
{ NtlMBFR 



;SFE IF OON'E 



;on ANOTHER 



A 9iV\f)7 .MAIN 



i^44l^2 

lAAAt^A 
fri440b 
»44P!b 
5544917 
1^4410 
^4411 
f14412 
ViAA\i 
^4414 

fA A A t ti 
"f "^ ■• I »./ 

V\AA\6 
C»4417 

l^> 4 4 ? (t 
k544?l 
/44?? 



1P)J>4(7.PI 
i14Ptl 67 

pi4M41P! 
l!!(?!fi?37 
0P(626a 
pi r/l CI PI l/i « 
fciPi6?4? 
I?II?I^412 
ti«6257 

6»CJ624? 

n ri r^ji j ta fi 
n" vt r.J ** v,i **i 

M2(^ib7 
«9f77S 
122414 

HI7I6942 
51W6243 



(?,pi 



P12,l{ 
ei2,2l 



(?,C17 

«,E12.2 

•IStT 



SIJR 
STA 
LDA 
STA 
E12S JSB 

nosEK 
d 

EHALT 

JMP E12E 

READ 

PRGENO 

17 

EHALT 

r LA PI ET 4 n n 

u n I- c I « C 

LDA PI, SECT 
LDA i,#E12.l 
SUBtt l,H,S7R 
EHALT 
E12EI LCinp 



ISEE THE DISCUSSION PRECEDING 

;TEST Ell, READ ONCE FROM 

lEACH SECTOR AT CYL-C, HEAD-a, 

ICHECK DATA IN EACH CASE, 

fDATA WOROS«S£CTOR «, 

ISFEK 

;CYLIN0ER 

lERROR IN SEEK, ACl-STATUS 

/SKIP TO END OF TEST 

IREAP I 

IDATA BUFFER ADDRESS 

»DISK ADDRESS (IT CHANGES) 

»ERHOR IN READ, ACl«STATUS 

fSKIP TO END OF TEST 

IGFT SECT ** 

IGET A WORD READ 

»DATA ERROR, SEE 

IAC»«GOOD WORD 

|ACl«8AD 



ABOVE DESCRIPTION 



i^44?3 

i/»44?4 
1^4426 
iii4426 
kU 4 2 7 
Pl443t* 
yi4431 
W4432 
?!443i 
(^4434 
(1? 4 4 3 S 



i'i2(^7'i7 
i»24Pi63 
123PIS4PI 
W4PI764 
CI 2 4 1 5 PI 
i^3H2w5 
1271H3 
«3M21PI 
1 12404 
iflPiP(747 



ISZ SECT 
LDA i^,Fl?.2 
LDA l,K8ll 
ADD i,<n 
STA PI, F 1 2. 2 
LfiA l,nTYPF 
LDA 2,C157 
ADDL l,lrSNC 
IDA 2,C317 
SUP W,P,SZR 
JMP E12 



riNCREMEMT 
INIJMRER 



THE SECTOR 



ISEE IF DONE 



>G0 AGAIN 



A .-^ :' f> H .MAIM 



C'> 4 4 4 vi 1 PI ^ 1 M 3 

^4441 w?4?i'>6 

i'^ 4 4 4 ? (/' 4 4 4 ? n 

/4443 l?bP2C« 

M4444 1?5??PI 

-'444b lP5?2i^ 

v'i444& \?b7?-^ 

'^^AAAJ i'''441b7 

^^445^? t»i^h?37 F13: 

::i44*«l i««h?b? 

S'44fiJ? tipi^tli'ip! 

'/4453 Pi0fe24p 

•/4454 i?!Ci*t/i411 

514455 (ir^6?Sfi 

/44b6 /P(b436 

>144!S7 ^ii/,6PtiR 

/ AAf-'A Mt^fSPhPI 

(,'. 4 4 « 1 !;\ Pi h f^ t< S 

/,44fi? ^<^.v\7i\7 El3,l: 

v^ 4 4 ^ 3 u'i t» 6 3 4 ? 

[,'4 46 4 iU^i/i4t'1 

;* 4 4 6 b t» M fi ? 4 3 F 1 3 f : 



I,'' 4 4 « 6 
fc.44h7 
U' 4 4 7 1.1 
l'. 4 4 7 1 
('447? 
^"4 47 3 
1^ 4 4 7 4 
H447b 



i-M 4 1 b 7 
W P! ■/■ 4 1-. 1 
t^ ? i^ 7 7 9 
^/ 9 4 yi b 3 
l??4k'W 
t-i 4 ;^ 7 b 7 
lPH4t^4 
t-K? K' 7 5 3 



LPA i^.niYPF 
LHA l,ri37 

Aonu w,tf),SMC 

LD* 1,r.277 
ST A 1,F13.1 
^OVZt-' 1.1 
MfiVZR 111 
MC1VZB 1,1 
MOVZH 1,1 
«STA l,StCT 
JSR «ISbT 
onstK 
(1 

EHALT 
JhP El3h 
G t MOAT 
SI-TNC 

PMRtMn 

W(,ITF 

PRT-EMO 

17 

^' H A U T 
JhP . + 1 

L n n p 

ns7 SbCT 
.if^p , + 1 

IDA t^,F13,l 

1. n A 1 , K H 1 1 

SUH \,^ 

ST A C%F13.1 

TNC t^,'^,SZW 

J^P E13 



JSFfc DI5CUSSI0M PRECEOI^G 
ITFST Ell. WRITE ON CVL-H» 

jheah-pi, once for each sector, 
un each case the data equals 
;tme complemfnt of the sector 

;MIMRfcR 



JHEGINNING sector 

;SETIJP 

JSFEK 1 

ICYLTNOEP O" 

JERROW IN StEK, AClsSTATUS 

fSKIP TO END OF TfcST 

»r,FNEHATE DATA 

SAODRESS OF HATA GENERATOR 

;AnnRESS OF DATA BUFFER 

;WRITE 1 

r ADORE SS OF ^ATA BUFFE» 

»DISK AnORESS fIT CHAMGfcS) 

JERROK IN WRITE, AClsSTATIjR 



JDFCREWfNJT THE 
JNIIMPEP 



SFCTOR 



»SFE IF noNt 
JNOT VET 



A I7I^■59 ,KAIM 



1^4476 


M20I15W 




LDA C^pDTYPE 


04477 


i^?4?i^4 




IDA 1,C137 


(rAS7iV> 


lPi3li^3 




ADDL 0,td,SNC 


0485^1 


.7I24?P)6 




IDA 1,C277 


i'*4Syi2 


e'4441 5 




ST A I, El 4, 2 


tl45P'3 


1252291 




MOVZP 1,1 


t^45Pt4 


12522P' 




MDVZR 1,1 


kl45?i3 


i2522« 




H0V2R 1,1 


H45M6 


IPSPgf-* 




M0V2R 1,1 


M45PI7 


044157 




STA l,SEf:T 


t^45ltl 


c^ptegi? 


F14: 


JSP *IS£T 


^145U 


y«6262 




nostK 


ti45l2 


1,1 CI C^ (/) 91 




c* 


>vi yl K 4 -t 


i:« m <; o >i <4 




ff L. i 1 V 


«.' -• k-» * V 


IT i v V' r ■• r 




r n » t. 1 


H4bl4 


t^.fif.413 




JMP F14E 


^■^451^ 


M(?.6257 




REAR 


(^4S16 


?tW6P0S 


E14,l: 


PPGEMO 


i^4bl7 


0C^t»5^l7 


F14.2I 


17 


w4b2i/'> 


(^M6242 




FHALT 


1/14S!?! 


C" W 4 ifl ff 




JMP F14E 


^o45?2 


02P157 




IDA PI, SECT 


P>45?3 


I IZ (7! PI t1 PI 




cr*^ PI, PI 


^14524 


5^2^772 




LDA l,»E14.l 


lf'.4b?S 


122414 




SljRff l,l!^,S7W 


/.4b26 


(/'PI6242 




EHAtT 


i^4b27 


t^W6243 


FUE! 


L-pnp 


!?i463M 


6^1 41 57 




nS7 SECT 


i/i 4 ft 3 1 


1)1151^^4011 




JNP ,+1 


ei45-'^2 


i;i2P»76'S 




LDA PI, F 14. 2 


414533 


M24Pift(3 




IDA 1 , K fi 1 1 


PI4&34 


1224frPi 




SUB 1,51 


^453b 


H4M76? 




STA !^,E14,2 


1^4536 


10^14(^4 




TNC 5),P',SZP 


;^4ft37 


01? 5^751 




JMP El 4 



fSFE THE DISCUSSION PRECEDING 
fTEST 11, HEAD ONCE FROM 
^SECTOR OF CVL-0, HEAD-0, 
IREAD SUCCESSIVE SECTORS 
JIN ORDER FROM HJ TO LQ«. 
UN EACH CASE THE DATA EQUALS 
>THE COMPLEMENT OF THE 
ISECTOP NUMBER 

ISTARTINP SECTOR « 

rSFEK J 

ICYLINDER ?' 

iERROk IN SEEK, ACIsStaTuS 

fSKIP TO END OF TEST 

»REAO i 

fDATA BUFFER AOORESS 

;DISK ADDRESS (IT CHANGES) 

lERROR IN READ. AClsSTATUS 

JSKIP TO END OF TEST 

»GET SECTOR tt 



;GFT A WORD READ 
fDATA FPROR, SEE 
JACtl«GOOD WORD 

;aci«bad 



ABOVE DESCRIPTION 



IDFCREMENT TO WEXT SECTOR 



IDHNE ? 

»N0, GO AGAIN 



A PI ,1 fi CI .MAIN 



joiscussTO'^i np THt: meah adhwfssik'g chkck, 

; (TESTS tlb/tlb AND tl7/El8) 

JUSIMf; CYLTN'r»t»-Ci, SFCTOP-Pi, TFST E I S WRITES ONfc 
ISFCTOR fiK hACH SUCCESSIVE HEAD INH I VIDUALL Y , 
»IM EACH CASE THE RATA HHROS EQUAL JHt HEAD 
»|yUMRER. TtST £16 HEADS EACH OP THESE SECTORS 
fBACK T^J THE SAME nKHER THEY WERE WRITTEN ANO 
fCNECKS THE HATA. TESTS E17 AND E18 PFRFURM 
JTHE SAME FUNCTIONS EXCEPT THAT THE HEADS ARE 
JSELECTED TN REVERSE OROFR AND THE COMPLEMENT 
JOF THF HEAD NUMBER IS USED AS THE DATA, 

»THESE TEST ARE DESir,NFn jn CATCH ERRONEOUS 
IHFAO SELECTTON OR MULTIPLE HEAD SELECTION 
;ERRORS. 



I.F, TF "HO?" IS ALWAYS AT GROUND WHEN HEAD ? 
TS SELECTED, HEAD H WRL ACTUALLY BE 
rnnsEN, "2<S" WILL "E WRITTEN ON THIS 
SPCTOR ^^HP.RE "P'S" HAD yEEN WRITTEN 
PRFVIOUSLY, THE SUbSEOUENT READ WILL 
THEN tNCnUNTER A DATA ERROR WITH THE 
Cnnu UtORD s E^ AND THE BAD WORD ■ ?. , 



A WH61 .MAIN 



I?14b4l {A4fA\b6 

t'!4543 M4fei4l3 

i;^4!544 0I?)6237 Flfi: 

W454S ^PtfiPft? 

C^4S46 eiRHPIWCI 

Ji4h47 P!lil6?4? 

«4ft5H l?iP!K411 

5i4b5i i;«06?Sfi 

i'14552 i;*Pi5434 

li''45!53 MPiefiUS 

?!45S4 ^^^ePbd 

rti A Kti K fAn tz c nm 

f *^ s.f -f U yt Vi ^J ri V" ;;jj 

514556 V(fiv]7ii7 E15,ll 

IAA5f>7 0Pie>P4? 

M45fiM Wf»M4^it 

c;4661 giP!6?43 F15EJ 

(^4962 Mli^lSe 

C'.i4563 6^20773 

v^4564 H24CI67 

/4Sfi5 J23WM!« 

i(i45fifi tr*4t^77!'i 

04?ii67 M?41byi 

«457Pi pi3fi4S4 

tUS?! 125112 

SI4572 idO{/'A?\4 

iAA57i 1514|(1CI| 

PI4S74 125202 

^4575 15140?" 

i«4576 «25P!!^P' 

ei4577 1224(^4 

(?!46PIP! (?IWH744 



1^»HEA0 



PtfElS.l 
*ISET 



SUB 

STA 

LPA (1,C17 

STA 

JSR 

nnsEK 

EHAuT 
JMP F15E 

r,EMOAT 

PRGbi^D 
WPITE 

V« i-i «% t k I r<K 

r K ii c "*' u 
17 

EHALT 
JMP ,*1 

lonp 



TSZ 
IDA 
LPA 

STA 
LDA 
LPA 



MEAD 

«,E15,1 

1,KB7 

1,17» 



C'fElS.l 
IrOTYPE 
J?iAOR-l 

MOVL« 1,1, S2C 

JUP ,+4 

I^C 2,2 

r^nVR 1,1, 57C 

TNiC 2,2 

IDA 1,(^,2 

SUR 1,P»,SZP 

JMP E15 



fSEE THE DISCUSSION ABOVE. 
IWRITE ON CYL-P), SECT-0, 
lONCE FOR EACH HEAD, 
lOATA WORDS ■ HEAD # 



ACUSTATUS 
TEST 



>SEEK 1 

fCYLlNDER 

lERwnp IM SEEK, 

ISKIP TO END OF 

IGENERATE DATA 

MDDRESS OF DATA GENERATOR 

IDATA BUFFER ADDRESS 

;WRITE i 

IDATA BUFFER ADDRESS 

IDISK ADDRESS CIT CHANGES^ 

;ERR0R in WRITE, AC1«STATUS 



IINCREMENT TO NEXT HEAD 



»DONE ? 



JCART DISK 

ISKIP IF 2311 
J2314 

;GET END DISK AODR 

JNDT DONE YET 



A ^<l.f^2 .M&ISi 



1/ 4 es i?i 1 
u^4e«^2 

P46C3 
/4fiP'4 
t 4 f> CI t> 
!/< 4 ^ r^ 6 
C'4t)f/7 
'/I 4 ^ 1 i^ 
/.4fc.l I 
w 4 ft I 2 
ti 4 b J 3 
C«4?i1 4 
H4615 
(,'.4616 
ko4M7 
Oi46?0 
K^462l 
f46?2 
C'.4ft?3 

/; 4 6 2 4 

V: 4 6 ? b 

i/)4H26 
«,4(f>?7 
i,--4b3i/1 
■'" 4 (1 3 1 
f-4*i32 
P 4 6 3 3 
i'' 4 6 3 4 
i/1 4 »^ 3 S 
1/4636 
t'!4»S37 
!<^ 4 ft 4 i/i 
1^4641 
i/^4642 
Ci4ft43 



lcii24i/>M 
r/i4(?)1 bfi 
m2I^121 
(-^ 4 71 4 1 Pl 
t*. pi 6 2 3 7 

i/ipift262 

t* (? '/ 171 i-^ p 

t^we>242 
M (^ ^': 4 1 2 
C*»P*b2S7 
/. ft ft « 5 
/I (^ (;i « 1 7 
P" 6 2 4 2 
vi (' (1 4 / f* 
P^2ifll£»6 
i"2677 3 
122414 
i/i 1^6242 
</i Pi 6 2 4 3 

i?il'>il b6 

H24P67 
123171 i?'!^ 
I? 4 W 7 fc> 4 
-71 2 4 I 5 1^* 
?i3i'i412 
126 11 2 
i>i M y 4 1/5 4 
1R140PI 
l2b2W2 
lSl4i^i?^ 
!^2B»5'5P' 
1224114 
t^?i0743 
i-ir>?!4w'? 



STA i1,HtAD 
LDA !^,C17 
STA ?),F16,2 

E16: JSP »I55ET 

n f . S fc K 
c« 

FHALT 
JMP FlfiE 
PtAp 

Elfi.l: PRRt^'D 

E16,2: 17 

EHALT 
JMP F16E 
LDA w.HEAD 
LTA l,«tl<=!,l 

EHALT 
F16ES LOnp 



IS7 
LPA 
LDA 
AfiH 
STA 
LuA 
L.PA 



Ht AD 
P> , F I 6 . 9 
1 ,KH7 
l.M 



n,Flft,2 
I ,nTYPE 
2, ADR-1 

MOVLJ* 1,1, SZC 

J H P , + 4 

IKC 2,2 

^OVW l,l,S7C 

I Ml! 2,2 

LCA l,-^,2 

SUP i,C',SZR 

.ir^P Elft 

JMP . + '' 



»SEE THE DlSrUSSIOM PRECEDING 
JTEST E15, READ ONCE FROM 
»EACH HEAD ON CYL-0, SECT-0, 
»VFRIFY THAT DATAiHEAD «« 

»SEEK J 

KYLINOER P> 

JERROR IM SEEIv, AClsSTATUS 

JSKIP TO EMO OF TEST 

fRFAD I 

lADDRESS OF DATA BUFFER 

;DISK APHRFSS fIT CHANGES) 

lERROH IN READ, ACi»STATUS 

»SKIP TO END OF TEST 

JGFT HEAD U 

JGFT A WORD BEAD 

>DATA ERROR, SEE AROVfc DISCUSSION 

jACpisGnan word 

MClsBAD 

^NCRE^*E^tT TO NEXT HEAD 



rDONF YET 11 



;CAHT DISK 

»SKIP TF 2311 

»2314 

;GFT ending disk ADDRESS 

JMHRF TD GO 

;Gn TO NEXT TEST 



V. 4 <^ 4 4 t'l P 4 ft 4 S , + 1 

n464S c'P\iPil7 ADR: U^ 1"/ 

i''4ft4ej i'«0bOM7 Rt'17 

i^4b47 (M2'-M7 12t-M7 



;CAWT, 
;23ll, 
;2314, 



HEAD 
l^fcAO 
HEAD 



2 
12 

24 



SECT 
SECT 
SECT 



1 SECT 
1 SECT 
1 SECT 



A PI(S63 .MAIM 



04651 M3PI506 
V14652 IP!1112 

1/4654 I5i4i^c» 
1^.4655 IPI12W? 
tf!4656 lSl4ial7i 
i?4fi57 i^?5PlwPi 
tf)466a PI44416 
fi4661 ?I20?13 
K4662 1237i!lPi 
^!4ej63 M4Mlb6 
P«4664 1^^6237 Ei7! 
f)466§ 0/'6262 
(?'46fi6 !;i pi (^ PI fe! f^ 
i*46fi7 1^06242 
i?,A87Vi WPie)4n 
fr»4671 ^'I?I6256 
(?i4672 I^PI5432 
^•4673 tie'6605 
fc!4674 (■^Pi626f 
04875 MP^fr6t^5 
(^4676 P»Pit1pil7 E17,l: 
(^4677 P.(^624? 
!l 4 7 H M 1^ p! f' 4 l-i t 
H47PII (^ti<624? E17E: 

t^47C^2 i-^Mib^ 

4 7 P 3 tl (^ ?) 4 (^ 1 

i'!47l?t4 021^772 

047iJ(5 (^24Pi«S7 

?47i?6 1224MC1 

M47!^7 (14(1767 

k:.471{' l(;>llti3 

Si471l 0PIP17b3 



LOA !?i,DTYPE 
LDA 2,A0Rl-i 
MDVL# 0,PI,SZC 
JMP ,+4 
T ki r o <3 

INC 2,2 

LDA 1,^,2 

STA 1,F17,1 

LDA W,C1774 

ANOS 1,0 

vSTA (?),HtAr) 

JS«? «lStT 

DOStK 
n 

FHALT 

JMP El7e 

RtNDAT 

HDNC 

PRRfcND 

WRITE 

PRGEND 

17 

FHALT 

JMP ,+1 

Lonp 

nS7 HtAD 
JMP ,+1 
LDA C»,E17,t 
LDA 1,KH7 
SUH 1,P) 
STA '^El7,l 
HnVL l?i,0,SNC 
JMP E17 



fSFE THE DISCUSSION! 
fPRECEDING TFST El5. 
JWRITE ON CYL-P), SECT-P), 

fonce for each head, 
;data s head « 



ISTARTINR DISK ADDRESS 
JSELECT HEADS IN REVERSE ORDER 



ICURREMT HEAD *t 

ISEEK i 

JCYLIMDER ? 

fERROR IN SEEK, ACIbSTATUS 

ISKIP TO END OF TEST 

IGFNERATE DATA 

lAnDRFSS OF DATA RFWERATOR 

IDATA BUFFER ADDRESS 

f WR I TE 1 

fdata buffer address 
;disk address (it changesd 
lerror in write, ac1»status 



/DECREMENT HEAD « 



»DONE 
»NP 



YET ? 



A W/(S4 .MAIN 



^A7\2 
04713 
04714 
C!i471S 
fi4716 
W4717 

PI4721 
ei4722 
K4723 
04724 
04725 
^!)4726 
K4727 
04730 
04731 
6)4732 
04733 
yi4734 
1^4735 
(^4736 
'^A727 
^^4740 
^54741 
»4742 
fe^4743 
(94744 
5^4745 



m2(?|1 5PI 
Vi'ifdAAA 

1PI1112 
VSTiViAfAA 
1514PII7I 
lPil2t52 
1S14«(« 
CH250S1PI 
(444413 
(?I2»213 
1237?B> 
I?I4015« 
eiPl6237 
ttPi6262 

M(1ti242 
«««?1413 
C1PI6257 

e!PIHP17 
»C»6242 
C1C'>Vl4Pi6 
02^1155 

£"26772 
122414 

I^PI6242 
141716243 



E18: 



Eia.iJ 

E1B,2I 



E18E.: 



LDA PI, 
LDA ?, 
MDVL« 

JMP ,♦ 
INC 2, 
MOVR 
INC 2, 
LDA 1, 
STA 1, 
LDA '/, 
ANOS 1 
STA PI, 

JSR »I 

DOSEK 



EHALT 
JMP El 
READ 
PRGEND 
17 

EHALT 
JHP Fl 
LDA 01, 
COM CD, 
LDA 1, 
SUB*I I 
EHALT 
LOOP 



DTYPE 

ADRl-1 

71, 9, SIC 

4 

2 

,i9»S7C 

2 

171,2 

E18,2 

C1774 

HEAD 
SET 



8E 



8E 

HEAD 

PI 

fEia.i 

,t^,SZR 



»SEE THE DISCUSSION PRECEDING 
JTEST E15. READ ONCE FROM 
lEACH HEAD ON CYL'B, SECT-0, 
fVERIFY THAT DATA«HEAD *t 

JSKIP IF 2311 
12314 

IGET DISK ADDRESS TO BEGIN NITH 



IBEGINNING HEAD U 

F8EEK i 

rCYLINDER 

fEPROR IN SEFK, ACl«STATUS 

ISKIP TO END OF TEST 

JREAD I 

lADDRESS OF DATA BUFFER 

I0I8K ADDRESS (IT CHANGES] 

fERROR IN READ, ACUSTATUS 

rSKIP TO END OF TEST 

IGET HEAD U 

»U8E THE COMP. 

rGET A WORD READ 

»DATA ERROR, SEE ABOVE DISCUSSION 

fAC0BGOOn WORD 

lAClaBAD 



(?i4746 
<AA7A7 

M4750 
414751 
?!47S2 
'^4753 
C*i4754 
C";4755 
694756 



"14156 
Ci?VIH4Wl 
W2PI765 
K24067 
12240PI 
K407fi2 
1011M3 
(300751 
PI004H5 



1^,4757 Cll^4760 

^14760 0PI0417 

C»4761 id<^AAl7 

04762 011417 



ADRll 



HEAD 

.+1 

Pt,F18,2 

1,KB7 

1,0 



nsz 

JMP 
LDA 
LDA 

SUP 
STA 0,E18,2 
MOVL 0,0|SNC 
JMP E18 
JMP E19 

.♦1 
417 
4417 
11417 



^DECREMENT HEAD « 



JDONF 

INO 

FYES, 



YET 7 



GO TO NEXT TEST 



rCART, 
12311, 
12314, 



HEAD 
HEAD 
HEAD 



I 

11 

23 



SECT 
SECT 
SECT 



I SECT 
1 SECT 
1 SECT 



A PI065 .MAIN 



04763 I?i0624e^ E19: 
iAATBA 0PI6262 
PI4765 000313 

04766 006)403 

04767 000402 
?tA77fli 006242 

04771 006243 

04772 030153 

04773 021U3 

04774 040401 

04775 006231 

a Al/yti anti'i An com* 

04777 006262 

05000 000313 

05001 020064 

05002 123415 

05003 006242 

05004 006243 

05005 030153 

05006 021113 

05007 040401 
05010 006231 



SETPl 

OOSEK 

313 

JMP ,+3 

JMP ,+2 

EHALT 

LOOP 

LDA 2,UNUM 
IDA 0,TRCLi2 
8TA 0,.*1 
RECL0 



noSEK 

313 

LDA 0,KB10 

AND# l,0,SNR 

EHALT 

LOOP 

LDA 2,UNUM 
LDA 0,TRCL,2 
8TA 0,,-H 
RECL0 



ICAUSE SEEK ERROR BY 
»8EEKING TO CVL 313 



IAC1»STATU8 
»N0 ERRORS ON 
ITO CYL 313 



SEEK 



IRECALIBRATE THE 
lUNIT WITH A SEEK 






occ^ 



ERR 



DT 



rSEEKING TO CYL 313 



IAC1«STATUS 

fNO SEEK ERROR STATUS 

IFOLLOWING SEEK TO CYL 

IRECALIBRATE THE UNIT 
fWlTH A SEEK ERROR 



313 



05011 006240 E2i: 

05012 006969 
K5013 000313 

05014 020177 

05015 123414 

05016 006242 

05017 006243 

05020 030153 

05021 021113 

05022 040401 

05023 006231 



SETPl 

DDSEK 

313 

LDA 0,C36 

AND** l,0,SZR 

EHALT 

LOOP 

LDA 2,UNUM 
LDA 0,TRCL,2 
3TA 0,.*1 
RECL0 



ICHECK FOR ILLEGAL ERRORS 
FALONG WITH SEEK ERROR 
UC1«STATUS 

JINTENTIONAL SEEK ERROR 
IILLEGAL status; "END CYL" 
»0R "UNSAFE" OR "CHK WD" 
fOR "DATA LATE" 



^RECALIBRATE 
>WITH A SEEK 



THE UNIT 
ERROR 



A 07Pfc) .MAIN 



/5PI24 


7.(?\6254 E22: 


DGRW 


H502S 


(71 PI [^91)0 


PI 


05fl26 


I^0i54fl5 


THPtE 


H!5fl27 


MPIP|(7I77 


77 


r^5M3fr1 


I7IP162S4 


noPw 


<7i5«31 


M PI H C» 1^ 1? 


PI 


P!5032 


tlt"54i(l7 


FOUR 


1^59133 


rTl^Cfll 17 


117 


^5(234 


'iiWb237 


JS« ilSET 


i;i5036 


t^P!b2b7 


READ 


i^5Pi36 


\/>!^66^5 


PkGEMD 


P>5037 


C.PI0PI77 


77 


ViBViAtd 


M PI fi 2 4 2 


FHALT 


!?5e(4i 


(?cPii?i422 


JMP E22E 


05?i42 


P»626t^ 


WRITE 


C^S043 


l/.PIfi^H^ 


PRGEMO 


5044 


t^PICil 17 


117 


C«fiyi45 


vit'6242 


EHALT 


'/I SI/ 46 


piP'(?i41S 


JMP e22E 


t/!5yi47 


npigpse 


GENDAT 


K"5P)fiC^ 


/PIS4l^5 


THRtE 


t-iSMSl 


i?iPi66vl? 


PRGEMD 


«5i^52 


£^Pib2S7 


READ 


piSi^S3 


?!P!72tl5 


PRGkMn + 4Plfe1 


05«5S4 


PI CI (1117 


117 


t^5tl55 


^•16242 


EHALT 


5i5B5b 


5^««4aP 


JMP E22E 


05K57 


C<iP!6261 


CHECK 


"^'SBfit^ 


C^Pie^Mfi 


PPGEMD 


05(^61 


C1PI7205 


PRGEM0 + 4PII!) 


6!5Sa62 


WPI6242 


EHALT 


(^f5»63 


t«Pi6243 F22EI 


Lonp 



»SETUP SECTOR 3 » 4 
>CYL *> 
IDATA TYPE 
»DISt< ADDRESS 

ISECT 4 



ITEST READ SECT 3-WRITE SECT 4 

iSEOUtNCE 

IREAD A SECTOR 

JMFM RUFFEP ADDRESS 

ISECTOR THREF 

JERROR, AClsSTATDS 

ISKIP TO END OF TEST 

IWRITE A SECTOR 

»BIJFF ADDR (3«S JUST READ) 

^SECTOR 4 

lERROR* AC1«STATUS 

rSKIP TO END OF TEST 

JGENERATE DATA BUFFER 
fADDR OF DATA GEN 
IBUFFFR ADDR, 

JREAD A SECTOR 
IBUFF ADDR, 
»SFCTOR 4 

fERROR, ACIbSTATUS 
»SKIP TO END OF TEST 

JCOMPARE BUFFERS A/B 
lADDR OF BUFF A tCORRECT) 
I ADDR OF BUFF B 
ICOHPARE ERROR, ACMsGOOD 
»AC1»BAD 



A 0067 .MAIN 



05064 
05065 
05066 
05067 


006254 E23I 

000000 

005405 


noRw 



THREE 

77 


05070 
05071 
05072 
05073 


006254 

000000 

005407 
000117 


OORm 


FOUR 
117 


05074 


006237 


JSR PISET 


05075 
05076 
05077 


006256 
005407 
006605 


GENDAT 

FOuR 

PRGEND 


05100 
1^5101 
05102 
05103 
05104 


006260 
006605 
000077 
006242 
000417 


WRITE 
PRGEND 
77 

EHALT 
JMP E23E 


05105 
05106 
05107 
05110 
05111 


006257 
007205 
000117 
006242 
000412 


READ 

PRGEND*400 
117 
EHALT 
JMP E23E 


05U2 
05113 
05114 
05115 
05116 


006257 
006605 
000077 
006242 
000405 


READ 
PRGEND 
77 

EHALT 
JMP E23E 


05117 
05120 
05121 
05122 
05123 


6^06261 
006605 
007205 
006242 
006243 E23Et 


CHECK 

PRGEND 

PRGEND4>400 

EHALT 

Lnop 



»SETUP SECTOR 3 & 4 

rCYL « 

»DATA TYPE 

IDISK ADDRESS (SECT 3) 



^SECTOR 4 

ITEST WRITE SECT 3-READ SECT 4 

ISEQUENCE, 

^GENERATE DATA 

r 4 ' S 

lADDR OF DATA BUFF 

fWRITE A SECTOR 
lADDR OF DATA BUFF 
rSECTOR 3 

lERROR, ACl-STATUS 
ISKIP TO END OF TEST 

FREAD A SECTOR 
JMEM BUFF ADDRESS 
ISECTOR 4 

lERROR, ACImSTATUS 
ISKIP TO END OF TEST 

IREAD A SECTOR 

fHEM ADDR 

ISECTOR 3 

lERROR, AC1»STATUS 

ISKIP TO END OF TEST 



ICOMPARE SECTOR 3 14 

ISECT 3 

ISECT 4 

ICOMPARE ERROR, AC0-GOOD (SECT 3) 

lACliBAO (SECT 4) 



A B068 .MAIN 



HS124 1W24P)W E24: 

l^512S »4C1405 

»51?6 (^4042(1 

(«5127 Pi202f!7 

tdfJISH ("40434 

«5131 C^PI6264 

1*5133 C1W5<*17 

115134 0eip?Pil7 

«513b P110775 

Pl5l3e> C^J>I?)774 

(15137 02421^7 

?|514H 122437 

ii5l41 t'!Pilil77Pi 

P)5142 t*2l?464 

(15143 H4H452 

(*5144 «P!62i7 go: 

PI5145 («PI6262 

vl5l46 C^CfldPiJflPl ,SCYL: 

1^5147 «(^6242 

(551511 P)Pt04l2 

H5151 Pi(^6257 

PI5152 c^pi6fM5 

(*5153 ^P!l««^17 

(?«154 P.P!6242 

»5155 gi?iJ145?5 

t?5l5fi 02(1155 

(15157 C12616PI 

0515(1 122414 

05161 ?i(?)6242 

05152 (?P»6243 F24EI 

(»51ft3 101C»0t 

i?i5i64 0(»0«p)ei lcyl: 

(15155 020761 

05166 040776 

05167 006255 GWANJ 

05170 024?m7 

05171 030125 

05172 143400 

05173 106433 

05174 000773 

05175 040751 

05176 014417 

05177 000745 



STA 0,,CL 

STA 0,.SCYU 

LDA 0,C312 

STA 0,LCYL 


rvLN 

17 

IS7 .CU 
LHA 0,,CL 
LDA 1,C312 
SURZ« 1,0, S8N 
JMP .CL-1 
LDA 0,C500 
STA 0,CCNT 

JSR •ISET 

nosEK 



FHALT 
JMP F24E 

«!-:ad 

PRREND 
17 

FHALT 
JMP F24E 



LDA 0, 
LDA 1, 

SUB* I 
FHALT 
LnOP 
MOV 0, 


LDA 
STA 

JSP 

LDA 
LDA 
AND 



0, 
#1 

u 

2, 
2, 



SURZ« 

JMP r,R 

STA 0, 
0S7 CC 
JMP GO 



CYL 

#BUFF 

,0,SZK 



0,SKP 

.SCYL 

LCYL 

PAN 

C312 

C377 



0, 1,SNC 

AN 

.SCYL 

NT 



IWRITE CYL *» INTO EACH 
JSECT 0, HEAD 0, OF ALL 
;CYLINDERS 



fCYL « 

lADDR OF DATA REN ROUT. 

IDISK ADDRESS 



I no 500 SEEKS 



rsFEK n 

rCYL « 

TERROR, AC1«STATIJS 

ISKIP TO END OF TEST 

JREAD DATA IN SECT 

JMEM ADDP 

IDISK ADDH 

JERRDR, AC1«STATIJS 

JSKIP TO END OF TEST 

;CURRENT CYLINDER M 
fACTUAL CYL * 
1 (LCYL) « LAST CORRECT 
^CYLINDER tt 



ISAVE CYLINDER JUST DONE 
>GET RANDOM CYLINDER tt 
|« MUST RE <313 

ITRY AGAIN 



A H^-eS .MAIN 



V'527i\d 


PIPI6247 




PCRLF 


lEND TEST 


C*52(?il 


i^Pl625« 




MESSAGE 




fi52Pi2 


PI 5^6602 




MSr.6 


l"PASS" 


P52P13 


090PI45 




LDA 2,45 




c^52P'4 


02500PI 




LDA 1,9,2 




i^52Ptb 


125PI05 




MOV 1,1, SNR 




(?iB2Pi6 


0PI24O6 




JMP #,+6 




1^525^7 


0l5Ptia3 




OSZ 3,2 




«52l(i 


002404 




JMP #.+4 




M52JI 


P160277 




INTDS 




l^S212 


P)35(9ei4 




LDA 3,4,2 




M5213 


0PI140PI 




JMP P),3 




05214 


09) (9412 




Al 




t^5215 


(^PKjPIKPI 


CCNTI 







g521fi 


£*00764 


C5061J 


50PI, 





.EOT 



PIB70 .MAIN 



JRANPOM NU»^BER GENERATnp 



(15217 

i7)!522?i 
C!SZ?1 
W52?2 
(05223 
M5224 
135226 
P'5226 
tl5227 
fei523M 
P152S1 
P<5232 

;^'523a 
v^5234 
»I5235 
5^5236 
1^5237 
»524i^ 
/5241 
H5242 
(^5243 
tiS244 
P52 4S 
(15246 
H5247 
(* 5 2 5 f^i 
105251 
f^525? 
fc«525v^ 



f5443i ran: 
;.^6M427 

C^44425 

?)(^4 41(?t 
(^34426 
1P3C^I0PI 
(i4i(4142 
llll(^(?i 
(^3l/l4i7 
M24415 
t^(«2416 



{^2442? 
(^44415 
li^5)2C^ 
125l2(?i 
PI14412 
?(CiCi77P 
lffl7^MPI 
12t)12Pl 
12512W 

tl 1^ P H M 

'V)33PI31 
M (?l (^ P) 1 ?" 



.unseat 



.U06?i: 
,unpi2: 
,u0(?i3: 

.UDli^I 
,UD2!^J 
,UD2i; 



STA 3, 
STA 2, 
STA 1, 

LDA (^, 
JSR ,U 
LDA 3, 
ADD 3, 
STA ^, 
MQVL f^ 
LDA 2, 
LL'A I, 



,UD03 

,UD02 

,U0»1 

RANDOM 

D50 

.UD2« 

RANDOM 
.2 

,UD02 

.uni^i 



LOA i,.un2i 

STA l^.UDlPl 
HOVZL P!*! 
MOVZL 1»1 

ns7 ,uni0i 

JMP ,-? 
ADD W,l 
MOVZL 1»1 
MOVZL 1,1 

Ann i,pi 

w 
1* 
c* 
PI 



^GENERATE A RANDOM 



»NUMPER IN AC0 



JSTORE NEW VALUE, 



IRANDOM CONTINUED 



A 8071 .MAIN 

ICHECK DATA SUBROUTINE 

1 CALL CHECK 

t ADDRESS OF DATA BUFFER I 

t ADDRESS OF DATA BUFFER 2 

-' ERROR RETURN, CACIJ-BAD CAC0)»GOOO 

I NORMAL RETURN 

?5254 054460 .CHECKJ 8TA 3,G£NRET 

05255 03K214 LDA 2,M400 

05256 050417 STA 2,CTR 

05257 031400 LDA 2,0,3 
052fl0 035401 LDA 3,1,3 
05261 010453 ISZ GENRET 

wv>e??c; n iviijc It) I UC^WCl 

05263 021000 .CHEll LDA 0,0,2 

4^5264 0254aw LDA 1,0,3 

05265 106414 SUBtt 0,1, S2R 

05266 (402446 JMP #GENRET lERROR 

05267 151400 INC 2,2 

05270 1754«0 INC 3,3 

05271 010404 182 CTR 

05272 BPI0771 JMP ,CHEl JCHECK MflRE 

05273 P>10441 ISZ GENRET 

05274 M02440 JMP PGENRET INORMAL RETURN 

05275 (^0000(« CTRI 

IGENERATE ONE SECTOR OF DATA 

I CALL GENDAT 

; ADDRESS OF DATA GEN ROUTINE 

; DATA BUFFER ADDRESS 

» RETURN 

05276 054436 ,GENI STA 3, GENRET 

05277 024214 LDA 1,M400 

05300 031401 LDA 2,1,3 

05301 034433 .GENU LDA 3, GENRET 

05302 007400 JSR #0,3 ^GET A DATA WORD 

05303 041000 STA 0,0,2 

05304 151400 INC 2,2 

05305 125404 InC 1,1, SZR 

05306 000773 JMP ,6EN1 ;D0 MQRE 

05307 034425 LDA 3, GENRET lOONE 
05310 001402 JMP 2,3 



A m72 .MAIN 



WHITE SUBROUTINE 
CAUL WRITE 

DATA BUFFER ADDRESS 
DISK ADDRESS 
ERROR RETURN, (ACl) ■ 
JMP TO END OF TEST 
NORHAL RETURN 

ERROR RETURN IF 

TIMEOUT (lP)i3MS5 

DATA UATF 

ADDRESS ERROR/UNSAFE 

END CYLINDER 

SEEK ERROR 

ANY "SEEKING" 

ANY "SEEK DONE" 

NO "R/w DONE" 



STATUS 



i^«3n 


PI5442? .WRITE! STA 3,r,ENRFT 


H5il2 


M2l4tfl(?i 


LDA CI, en, 3 


053U 


062l''33 


DOM n,nSKP 


^?5il4 


P2i^j52 


LP A Pt,TESTU 


05315 


l^2S4P>l 


IDA 1,1,3 


l^531& 


l23«»i/5^ 


ADD l.r^ 


M5317 


>(163233 


Dncc m.dskp 


!;i53?i;^ 


P2M12fi 


LOA 'A,t77 7 


il*<321 


B61133 


DPAS W,DSKP 


vsf>-i77 


^\'^A\7 


IS7 GENRET 


W5323 


^\»Ai\ 


IS7 GENHET 


^^5324 


^P!6235 


TTRwT 


(55325 


0Pi2-d(<t7 


JMP fGENRtT 


(^53Pfr 


t>i204Cl7 .WRi: LDA C^,.^M 


C153?7 


IPI7415 


AND* M,1,SNH 


lA533ti^ 


125U3 


MOVL« l,l,SNC 


H5331 


mzAv.f' 


JHP "GENRET 


C15332 


0344C52 


LDA 3,GENRFT 


y5333 


J101402 


JHP 2,3 



»CA 



MJNIT « & DISK ADDRESS 
;BIT 7 AND ALL CYL 8ITS«l 
IWRITE i 



»WAIT IPiWMS FOR INTERRUPT 

ITIMEOUT 

fERROR BIT MASK 



I ERROR STATUS 



1^5335 i/'77fi77 



GENRETS P! 
.wm: 77fi77 



A m7Z .MAIM 



READ SUBROUTINE 
CALL READ 

DATA BUFFER ADDRESS 

DISK ADDRESS 

ERROR RETURN, fACDtSTATUS 

JMP TO END TEST 

NORMAL RETURN 

ERROR RETURN IF 

TIMEOUT (lf>0MS5 
DATA LATE 
CHECK WORD ERROR 
ADDRESS ERROR/UNSAFE 

SEEK ERROR 
ANY "SEEKING" 
ANY "SEEK DONE" 
NO "R/W DONE" 



P5336 


054778 .READ: STA 3,r,ENRET 


(15337 


»214(;^ 


LDA 0,6^,3 


Pi534l« 


Vi-e2Pi33 


DOB 0,nSKP 


PI5341 


080152 


LPA 0,TESTU 


05342 


0?540i 


LDA 1,1,3 


05343 


1?3C>IH(^ 


ADD 1,0 


05344 


K63233 


DOCC 0,DSKP 


05345 


10241)0 


SUB 91,0 


05346 


061133 


DOAS t8,DSKP 


^5347 


010765 


ISZ GENRET 


0535PI 


01W764 


ISZ r,tNRET 


115351 


006235 


iTRk-T 


05352 


002762 


JMP #GENRET 


»5353 


000753 


JMP .WRI 



ICA 

lUNIT « ft DISK ADDRESS 
IREAD J 



IWAIT 100 MS FOR INTERRUPT 

ITIMFOUT 

ICHECK STATUS 



A 51(^74 .MAIN 



SFfeK SUBRnUTINt 
CALL nOStK 
CYL tt 

ERROP RETURN (ACn'STATUS 
JMP TO Ewn TEST 
NORMAL RETURN 

ERROR RETURN IE 

TIMEnuT tSpiflMSl 

DATA LATF 

CHECK WORD ERROR 

ADDRESS FRRDR/UNSAFE 

END CYLINDER 

SEEK ERROR 

ANY "SEEKING" 

NO "SEEK nOMF" 

"R/rt DONE" 



^'>'6ba 


(.l!S476P 


.DOSEK: STA 3,r,fcNRET 


(^•5355 


C?tti757 


IS7 GENKET 


0!S3S6 


CiPfMB? 


LDA W,TfcSTU 


i^?357 


i^63?33 


once ISDSKP 


(,iS3fiyi 


tl^WRPI 


LDA (^,1^,3 


t^53fil 


1^24125 


LDA !,C377 


0S362 


1234C1I? 


AhlD ),W 


t^f>A63 


:'i4v^l5f5 


STA ni,CYL 


\,'>5i6i* 


024W7O 


LDA 1,Krt6 


i^^SfiS 


123t^i2P' 


ADD 1,0 


iA5'i^t) 


[^fil333 


DOAF (?),DSKP 


0S3«7 


rt3(?H67 


LDA 2,CS 


'/1537C! 


(i^'e>?27 


WAIT 


^15371 


ti ? 1^ 4 1 01 


LDA PI,, DM 


ifll^iJZ 


123414 


AND« l,i^,S7R 


l^*5373 


0PI274t 


JMP ^GENRET 


Vi^iJ^ 


M2P)22Pi 


LDA ''i,C74K 


V15375 


J2341S 


AND* l,l/1,SNH 


i/*f537f' 


yifii273'* 


JmP #GENR£T 


(7.5377 


S^34735 


LDA 3,GENRET 


f^54Wv^ 


PC" 141^2 


J^*P 2,3 



^SELECT UNIT 

••SAVE CYL n 
)CYL a + SEE" 

>WAIT Sl^t^MS (OR UNTIL "DONE") 

JERROR STATUS 



JNO SEEK DONE 



M54W1 10^3677 ,DM: 



lt(3^77 



A 8075 .MAIM 

^^5402 IJ120W1 QNESI ADC 0,0, 8KP 

R54PI3 1PI240PI ZEROSI SUB 0,0 

05404 001400 JMP 0,3 

05405 020117 THREE! IDA PI,C3 

05406 001400 JMP 0,3 

05407 020166 FOIJRI LPA 0,C4 
05410 001400 JMP 0,3 

054JI Pt20J40 ALTll LDA 0,C2525 

05412 0PI1400 J^p (71,3 

tA^A^^ aOa i A* JtiTni I IN A ft OKAsn 

05414 »)01400 JMP I!), 3 

6!S415 P120155 CYLNCt LDA 0,CYL 

05416 1000vill COM 0,0, SKP 

05417 M20155 CYl.NI LDA 0,CYL 
0?42» 5101400 JMP 0,3 

05421 054407 NUMSEQJ STA 3,NSRtT 

M5422 010407 ISZ NSl 

05423 Pi004felil JMP ,♦! 

05424 020405 LDA 0,NS1 

05425 034125 LDA 3,C377 

05426 163400 AND 3,0 

05427 0024(^1 JMP •NS«ET 
C«543R 000000 NSRETI 

PI5431 (;^0M00PI NSl: 

05432 020156 HDNCI LDA 0,HEAD 

05433 100001 COM 0,0, SKP 

05434 020156 HDNl LDA 0,H£AD 

05435 001400 JMP 0,3 

05436 020157 SETNCI LDA 0,SECT 

05437 100001 COM PI, 0, SKP 

05440 020157 SECTNI LDA 0,SeCT 

05441 001400 JMP 0,3 



A CI076 .MAIN 



P)?442 PI54504 ,IN1J 

(05443 l'.P)6247 

(^5444 i;!>^625l^ 

P.S445 iA?65i7i 

1^*5446 MP16247 

P!f5447 Hei625Pt 

^5450 PIPI6523 

i"54f51 l?iP'6?47 

e)5452 H0625t« 

((^S453 PiP)6541 

(/t5454 C1CI6247 .INIlt 
»545h M6M2l(?l 
6:''>4B6 HP3fil(^ 
0B457 i?iP)Pl777 
/ifi4fiyi i/<6i?l4lP! 
(^■5461 l^fillU 
I?i54«2 024124 
4^5463 lf'740(?i 
C«S464 M3«2l^t^ 
PiB46h P1342B1 
1?!54«6 132437 
v^S4«7 166432 
?i547ti 0Pitfl457 
«S471 M24117 
1^5472 12340PI 
»B473 1P1224 
C.5474 t')Pl(^4((14 
ti547b 1PI12MS 
M5476 1PI1241 
lr.5477 11"122P' 
«S50e! Pl4i?lbw 



IPROGRAM IMITILAIZATION 



STA 3,.INHET 

PCRLF 

MESSAGE 

MSRl 

PCRLF 

MESSAGE 

MSG2 

PCRLF 

MESSAGE 

MSG3 



PCRLP 
Nine TTI 
SkPON TTI 
JMP ,-1 
niA P>,TTI 
OClAS ^,TTO 
LDA 1,C177 
AKiD 51,1 
LDA 2,r6l?l 
IDA 3,C63 
^URZ« 1,2,SBN 
SUPZ« 3,1,SZC 
JHP QUEST 
LOA 1,C3 
AND l,a 
MDVZR i7,P>,5ZR 
JMP ,+4 
MnVR l^,t^,SNK 
MOVOR i7l,l?l,SKP 
MOVZR ffl'l 
STA r»,nTYPE 



IDISK PACK TYPE 



»TYPE V: FOR CART 
I 1 FOR 2311 
; 2 FOR 2314 



IWAIT FOR TTI INPUT 



IREAD CHAR 

fECHO IT 

?7 BIT MASK 



;CHAR MUST 0»l» OR 2 
HULFGAL CHAP TYPED 

J«2, 2314, BIT 15 IS SET, DONE 

J«PI, CART, MUST SET BIT « 
»»1, 2311, MUST SET BIT I 



A 0W77 .MAIN 



»55Pll 1PI24(>IH 




SUB 


0,0 






P15502 04P151 




STA 


0.ND8K8 






055193 (106247 


.INI2t 


PCRLF 






05504 PI062SO 




MESSAGE 






(^55Pt5 Pi(D6562 




MSG5 


ITVPE UNIT NUMBERS 


TO TES' 


05506 MP)6247 




PCRLF 






?55P7 e!fi0210 


,INI3l 


NIOC TTI 






05510 06361P) 




SKPDN TTI 






P!55U H0PI777 




JMP 


.-1 






05512 i?e041(^ 




DIA 


0,TTI 


FREAD CHAR TVPED 




Ii555l3 061111 




DOAS 0,TTO 


rECHO THE CHAR 




ei5S14 M24124 




LDA 


1,C177 






n^m ^ 1 aj Aaa 




AND 


f» < 


a ■■ f> S ^ A ^ «» ■■ ^ 




»'"■»••* * w ' f a* I* r.' 




V « i 


f/ Oil aStii 




05516 PS30173 




LDA 


2,C15 






05517 132415 




SUB*» 1,2,SNR 






is5S2tA 000422 




JMP 


CR 


JCR TYPED 




05521 030900 




LDA 


2,C60 






05522 034201 




LDA 


3,C63 






05523 166437 




SU8Z« 3,1,SBN 


l*» MUST BE 0,1,2, OR 3 


05524 132436 




SUBZ» 1,2,SEZ 






05525 000426 




JMP 


QSTl 


IILLEGAL CHAR TYPED 




05526 030117 




LDA 


2,C3 






05527 113400 




AND 


0,2 






05530 021057 




LDA 


0,UNTBIT,2 






05531 025053 




LDA 


If .TU,2 






05532 044152 




STA 


1,TESTU 






05533 050153 




STA 


2,UNUM 






05534 110000 




COM 


0,2 






05535 024151 




LDA 


1,N0SKS 






05536 147400 




AND 


2,1 


1 CNDSKS) ■ BIT 15 - 


UNIT 


05637 107000 




ADO 


0,1 


» BIT 14 - 


UNIT 1 


05540 044151 




STA 


1,NDSKS 


1 BIT 13 - 


UNIT 2 


05641 001(3746 




JMP 


,INI3 


1 BIT 12 - 


UNIT 3 


05542 02015J 


cr: 


LDA 


0,ND8KS 


»IF NO UNIT NUMBERS 


TYPED 


05543 101005 




MOV 


0,0, SNR 


IIT IS AN ERROR 




05544 000407 




JMP 


(58T1 






05545 002401 




JMP 


•.INRET 






05546 000000 


.INRETI 











05547 006247 ( 


3UESTI 


PCRLF 






05650 006250 




MESSAGE 






05551 006557 




MSG4 








05552 000702 




JhP 


.INIl 






05553 006247 ( 


3ST1I 


PCRLF 






05554 006250 




MESSAGE 






05555 006557 




MSG4 








05556 000725 




JMP 


,INI2 







A P)(^78 .MAIN' 



ISET ALL I/O ADDRESSES 



»5557 
!?i55fil 

515563 
J5!«ft6<J 
PSS65 
(?556b 
«P5^7 

t^5f57l 

f5572 
ti5573 
05S7« 
i?5S>75 
PI5576 
C55577 

i^56Pt5 



Pi2(!lPl64 
1^24176 

Pi3l^44;5 

^24161 
1PI74PW 
C«34169 
lfi64f*4 
P)p)p)4(fif5 
M24163 

na4ib'i 

1234H(^ 

16 3P"(^I!1 
ti 4 I P> t'! Pt 
1914(1(3 
(^24411 
^2414 
t^.Pitl762 
!^24(i'46 
1251?) t^5 
i»63Pi77 
(''R24MI 
n 1-1 w 4 v^ C' 



.S33t 
.S73I 



.SN0I 



,SNi : 



pSbll nPPl4i^i?l FIRST: 
(^5612 MP"6C.?7 last: 



(i^,ei,SKP 

1,C33 

Pi.CDSK 
2, FIRST 
fi,'^,2 
l,HSKl 

3,nPio 

3,1,SZR 

• SMI 

1,MSK2 
3,C0SK 
1,PI 

(?I,PI,2 
2,2 

i,LAST 
l,2,SZR 



SUB 
LDA 
LPA 

Aon 

STA 
LDA 
LDA 
LDA 
AMD 
LDA 
SUB 
JMP 
LDA 
LDA 
AKD 
ADO 
STA 
INC 
LDA 

SU«» 

JMP .SNiiJ 

LDA I, EGGS 

MOV 1,1, SNR 

HALT 

JMP $,*\ 

STAMT 



START 
.SFT 

JDELAY SUBROUTINE 



»SET TO 33 
tSET TO 73 



»G0 ON 
IDISK PACK 



10 INST, 



PS613 ^^544l«ft ,STL« STA 3,,STLRET 

!?i5614 i?34Pi*5l?l LDA 3,K814 

*i5fel5 054C»pP STA 3,i?i 

t/»5616 t^MPPPt DS7 i?i 

tl5617 MPilii777 JhP ,-\ 

0562ti f*it24i/H JhP *,STLRET 

(?562l Rpiil''Pi0P ,STLPET:PI 



A <!i9i79 .MAIN 



P'SET A SEEKING FLOP" SUBROUTINE 



ie5G?,2 H80PI58 .SSEKI 

»?623 15l0fi5 

KS624 0P)14P0 

(#5625 024PI54 

«S6?6 123PI0P) 

lfl?627 151?23 

tufmxm niflini*vw 

r- *.* ^/ tj »i rj rj r? / f U 

eiS631 Pt63P!33 

HS632 »2407P» 

(?!!!5633 P)65333 

^)5634 l/tPlP)767 



IFOR 

I 
I 
I 



THE UNITS 
BIT 15 
BIT 14 
BIT 13 
BIT 12 



LDA 
MOV 
JMP 
LDA 
ADO 



?I,C140K 
2»2iSNR 
(?,3 
l,KBl 

MpVZR 2,2,SNC 
jrr , oSeKt 1 
DOC P!,nSKP 
LDA 1,C100I?! 
OOAP l,D8KP 
JMP ,SSEK+1 



INDICATED 

■ UNIT 
« UNIT 1 

■ UNIT 2 
• UNIT 3 



IDONE 



BV CAC2) 



ITRy another UNIT 
IRECAL THIS UNIT 

»SEEK IJ 



(^5635 
05636 
05637 
P564PI 
P5641 
M5642 
i?5643 
05644 
&*5645 
05646 
05647 
05650 
05651 
05652 
0S653 
05654 



f^50164 
fr»30145 
05014<4 
030221 
063700 
063077 
C>t64433 
133414 
000406 
014144 
000772 
014164 
0P(0765 
001400 
064433 
01711400 



.WAITI 



»NAIT ROUTINE FOR "DONE" 

I RUN TIMER 

lfAC2) ■ MAX RIJNi TIME, ( 100MS/COUNT) 



8TA 2, 
LDA 2, 

STA 2, 
LDA 2, 

SKPD7 
HALT 
DIA 1, 

AND* 1 
sJMP WT 



WTO: 



osz 

JMP 
OSZ 
JMP 
JMP 
DIA 
JMP 



TE 

• ■ 
IT 

li 

0» 



ITRCNT 
TIME 
TEMP 
C174K 



DSKP 
•2fSZR 



MP 

6 

RCNT 

AIT*1 

3 

nsKp 

3 



f*( 100MS ITERATIONS 
M00 MS / COUNT 
ITEMP COUNTER 
fOISK DONE FLAG MASK 
IDUMMY FOR TIME FILLER 

FREAO STATUS 

ISOMEONE IS DONE 



»DONE 10PI MS 
rOO SOME MORE 
ITIMF OUT 



A PIPtBi? .MAIN 







rFIlMH COMPUTER 


t'P'ySS 


P)fi2677 STB: 


lOWST 


B5656 


1264P'P* 


SUP 1 1 I 


pSbB? 


v^44145 


STA l,TIMfc 


OSSfiM 


1^44140 


STA l,TIMEl 


pSftfil 


P)?M12S 


LDA M,C377 


1^5662 


1^61111 


nOAS 0,TTO 


K5663 


(*63611 


SKPDM TTO 


l?56«4 


«PiPi777 


JMP .-1 


P5665 


PI61U1 


nnAs w,TTo 


»5ft«6 


K63711 


SKPD7 TTO 


e5667 


Hf1pi4fe'7 


JfP STBI 


(?fS670 


plfi440t^ 


niA i,?> 


5^5671 


127411 


AND** l,l,SKP 


P>5672 


Pfi3Pi77 


HALT 


p*5673 


(11^145 


ISZ TIME 


(^!S674 


t'Piei772 


JMP ,-6 


(?5675 


fci63C«77 


HALT 


?5676 


PPlin STBi: 


PDAS »,TTO 


fc5fr77 


Mfi37ll 


SKP07 TTO 


l*57Ptt1 


PIC 1401' 


JMP PI, 3 


P^57l!'l 


PilM14fi 


IS7 TIMEl 


^•.571^2 


Cipi 1^775 


JMP ,.3 


057P'3 


063W77 


HALT 



TIME BASE 

ITIME BASE I 
JTIME BASE I' 

ITVPE ONCE TO SYNC TTO 

fSTART TIME BASE 1 

>TIME BASE I ESTABLISHED 

fTIME FILLER 

>BFD 

tRFAL TROUBLE 

ICOUNT 1 

;TTn CLOCK OFFl! 

JSTART TTMF BASE 1' 

JTIME BASE 1' ESTABLISHED 



ITTO CLOCK OFFll 
»RECALI8RATt SUBROUTINE 



fc57C4 
&'57PI5 
057P'6 
P57(?7 

e'57iti 

C^57il 
K5712 
?5713 
Cr5714 
25715 
8:5716 
^5717 
5157PM 
(?572l 



1PI24PIW 

^>2e't«54 
(^Pll/i4»3 
11^2621 
B2MPI56 
H63233 
02H215 
061333 
(^5441^4 
l^3Cil73 



.RCLt^: 

.RCLi: 

,RCL2: 
.RCL35 



RCLRFTJ 



SUB \A,<^ 
JMP .RCL3-t.l 
LDA I?),KB1 
JMP .RCL3+1 
SUBZR i^,W,SKP 
LDA J^,C140K 
nOCC 0,DSKP 
LDA fi^CM^i^ 
noAP l(l,OSKP 
STA 3,RCLRET 
LDA ?,C15 
K' A I T 

JMP •RCLRET 
!?l 



»UNIT PI ENTRY 

fUNIT I ENTRY 

lUNlT 2 ENTRY 
»UNIT 3 ENTRY 
^SELECT KNIT 

^RECALIBRATE 

IWAIT l,3SEC COR UNTIL DONE) 



A CHeiBl .MAIN 



^^5722 H54441 .DORWI 
05723 W2140PI 
e^5724 M4PI41PI 
PIS725 02l4(?il 
l?6726 M4PI412 
^•5727 1^21402 

U^TKrtl (91 AtA JH A 

• ' t- » V «J » ■ "^ ^t ■• J^ «« 

J?5731 R4042PI 

135732 0W6237 
06733 006262 

05734 npi«0«0 .on: 

05735 006242 

05736 000422 



05737 00625B 

05740 005402 

05741 006605 



,0011 



05742 
05743 
05744 

05745 
05746 

05747 

05750 
05751 
05752 
05753 



0P(626W 

H066v!5 

000017 

006242 
00041? 

1/106257 
007205 
000017 
006242 
000405 



.D02t 



.0031 



05754 006261 

05755 006605 

05756 007205 

05757 006242 
gi5760 006243 E.DO: 

05761 034402 

05762 001433 



ySEEK WRITC/REAO/CHECK SUBROUTINE 

?CALL DORW 

I CYL« 

I ADDRESS OF DATA GEWERATOR 

I DISK ADDRESS 

I RETURN 



STA 
LDA 
STA 
LDA 
STA 
LDA 
a I * 
STA 



3,D»WRET 
0,0,3 
0,,OO 
0,1,3 

P'f.DOl 

0,2,3 






0.,DO3 



JSR *ISET 

DOSEK 



EhALT 
JMP E.no 

GENDAT 

ONES 

PRGtND 

WRITE 
PRGEMD 
17 

EHALT 
JMP E.no 

READ 

PRGtND+400 

17 

EHALT 

JMP E.no 

CHECK 

PRGENO 

PRG£Nt)4.400 

EHALT 

LOOP 

LDA 3,0RWRET 
JMP 3,3 



FXFER CYL * 

IXFER ADDR DAT GEN 

IXFER DISK ADDR 



;SEEK 11 

ICVL U 

lERROR, ACl«STATUS 

rSKIP TO END OF TEST 

fGENFRATE DATA 
lADDRESS OF DATA GEN 
»MEM ADDR 

;WRITE 11 
»MEM ADDR 
»DISK ADDRESS 
lERROR, AC1»STATUS 
fSKIP TO END OF TEST 

>READ II 

imem aoor 
;disk address 

/ERROR, ACl»STATU8 
rSKIP TO END OF TEST 

ICOMPARE BUFFER A/B 

t A 

I B 

ICOMPARE ERROR, AC0«GDDD 

MCHBAD 



05763 000000 DRWRET« 



A 0Kfl2 .MAIM 



IWAIT FOR 
»R!ETURN*1 
IRETURN+2 



INTERRUPT TIMfcOUT 
IF TIMEOUT 
IF IKTERRUPT 



AFTER 100 MS 



?^7f>7 
k'.577f 
eB771 
9^5772 
1(55773 
K5774 
f5775 



«2014fi 

fc:fiP»l77 
PI fi 3 7 C 
063PI77 
Ptl4144 
P1PIH77B 
tifil^277 
1^64433 
M PI I 4 ti (" 



.IWTI 



LDA 0,TIME1 

STA (?»,TEMp 

iN'TtM 

SKPDZ 1 

HALT 

DSZ TEMP 

JMP ,-3 

INTDS 

DIA 1,DSKP 

JMP d,3 



?i5776 M64433 TRET: 
P'f5777 iA9HA]Ai 



niA 

JHP 



l,nsKp 

1»3 



»TIME FILLER 

IND INTERRUPT 
fERRHR RETURN 

INORM INTERRUPT RETURN 



CHOnSF AN ACTIVE DISK UNIT 



RETURN 



WITH 
UNIT 
UNIT 
UNIT 
UNIT 



UNIT « 

1 B 2 

2 s 4 

3 » 11^ 



IN AC2 



l>i«p!(?ii?l 1fS2»S21 .AOSK: SURZL 2,2,SKP 

P"fii?P'l 15112P' MpVZL ?»2 

nenf^a 6120151 LDA P'.NDSk.S 

H6t"P"3 1434HS AND 2,fl»5NR 

ti6«P4 tii?)H775 JMP ,-3 

C"fi?iP!5 CiPil4|/t0 JMP t1,3 

fSEEK SUBROUTINE 

; CALL SEEK 

t N 

I RETURN 

Mfipue n5442P» ,sk: Rta 3,skret 

t«60Pi7 1264Mt^ SUB 1,1 

(yi6l?.lia i;^2v1I?b4 LDA (^,KA\ 

0fiCll 151222 MOVZR 2,2,SZC 

'/«(?> 1 2 tipi04fl3 JMP ,SK1 

^6i/ll3 lPt70tiP" ADH PI, 1 

i^60l4 PPIW77?< JMP .-3 

(Ifii^.lS Pifi7033 ,SKi: nnc 1,1SKP 

^6fcJ6 (;«214MC» LDA 0,0,3 

0FC.17 024070 LDA l,Kb6 

08020 12301(^0 ADO 1,0 

0r,021 1^61333 DHAP 0,DSKP 

i;iB022 030167 LDA 2,Cb 

0P023 0PI6227 WAIT 

06024 010402 ISZ SKRET 

0P02f5 002401 JMP fSKRET 

0^026 (^(?i00t10 SKRET: ^ 



rAC2 " UNIT 

TCYL *t 

»ACl ■ STATUS 



ISFLECT UNIT 



;SEEK + CYL « 



fWAIT 500MS (OR UNTIL DONE) 
FAC1«STATUS 



A 01^63 .MAIN 

06?i27 P!5442(5 ,SETl 8TA 3,L00PR IITERATE ONCE 

06030 176520 8UBZL 3»3 

06031 000406 JMP ,SETUP*2 

06032 054423 .SETPII STA 3,L00PR IITERATE 5 TIMES 

06033 M34167 LOA 3,C5 

06034 000403 JMP ,SETUP+2 

06035 054420 .SETUPI STA 3,LaOPR lADDRESS OF TOP OF LOOP 

06036 034407 LDA 3,ITR ITHIS ROUTINE INITIALIZES 

06037 054407 STA 3,ITRCT fEACH TEST 

06040 176400 SUB 3,3 

06041 (?!54406 STA 3»ESWIT 
06P'.42 054406 STA 5,EkRCT 

06043 062677 lORST r,I/0 RESET 

06044 002411 JMP •LQOPR 

06045 000144 ITRI 144 

06046 000000 ITRCTJ 
f»fipi47 000000 ESWITI 
06P)50 000000 ERRCTI 
06051 000000 .RTRNI 
06M52 000000 SAV2I 

06053 00000iC^ SAVl I 

06054 000000 SAV0t 

06055 i>)00000 LOnPRi 

06056 M00000 DSWTI 



A CIHR4 .MAIN 



y>6l?l57 


0f5477? 


P»fi(^«0 


034122 


P)606l 


054000 


WP062 


014000 


ttppifta 


00W777 


i«6!*f>4 


000402 


pUSBfiJ) 


0«»47fe4 


(?|^«f56 


050764 


P16PI67 


044764 


P)6»70 


040764 


(?Pifl7l 


0147S5 


(?fiv)72 


000430 


PIPP173 


034752 


(>lfiK74 


054752 


?)6Pt75 


034752 


06076 


175025 


e)fi»77 


002752 


061P)M 


074477 


M61?1l 


175120 


l^61PI2 


175100 


fl61Pl3 


175103 


&lfilP!4 


000414 


06105 


006247 


06106 


024742 


06107 


030736 


M6110 


004546 


06111 


030734 


06112 


004530 


06113 


006506 


06114 


020403 


06115 


006503 


06116 


000402 



.LIJPDI 



.loop: 



STA 
LDA 
STA 

osz 

JMP 
JMP 



3, .RTRN 
3,C37 

3,0 



.-1 
.♦2 



STA 3,.RTRIM 
STA 2,SAV2 
STA 1,SAV1 
STA 0,SAV0 
DSZ ITRCT 
JMP CYCTS 
LDA 3,ITR 
STA 3, ITRCT 
LDA 3,ESWIT 
MOV 3,3»SNR 
JMP •.RTRN 
RfcADS 3 
MOVZL 3,3 
MDVL 3.3 
MDVL 3,3,SNC 
JMP PCENT+l 
PCRLP 

LDA l.ERRCT 
LDA 2,ITR 
JSR MULT 
LDA 2,ITR 
JSR niVD 
JSR #IPDEC 
LDA 0,PCENT 
JSR #ICHAR 
JMP PCENT+l 



riNTROnUCE A SHORT 
IDELAY IN THE LOOP 
fROUTINE TO ALLOW THE 
»DISK CART. ATTENTION 
ILINE TO COME HP 



lEND OF TEST ITERATION 



»NOT 100 TIMES ITERATED 
IRESET ITERATION CNTR 



IPRINT CARRIABE 



fPRINT VALUE 
»EXAMPLEt 89% 



A BPifib .MAIN 



C'fill? 


/00045 


PCENTI 


"X 


ICHARACTOR 


Cl612fi 


176400 




SUR 3,3 




i^Pl?l 


054727 




STA 3,ERRCT 




06122 


034725 


CYCT8I 


LDA 3,PSWIT 




^^6123 


175004 




MOV 3, 3, SIR 




0ffl24 


000410 




JMP CNS 


ITHERE HAS BEEN AN ERROR 


06125 


062677 


CYCU 


lORST 


tl/0 RESET 


t^fil86 


020726 




LDA 0,SAV0 


^RESTORE AC'S 


06127 


024724 




LDA l.SAVl 




06130 


030722 




LDA 2,SAV2 




06131 


175113 




MOVL« 3,3,SNC 


ISWITCH 


06132 


002723 




JMP •LnOPR 


K0)«LOOP ROUTINE 


06133 


002716 




JMP #,RTRN 


r (1)«PR0CEED TO NEXT TES 


(^6134 


074477 


CNS: 


R£ADS 3 


lERROR LOOP, IS A RECAL 


ti6l35 


^24073 




LDA 1,KB3 


IREOUESTED ? 


t^6l36 


137415 




ANO* l,3,SNR 




W6137 


000410 




JMP CNSl 


;no go-on 


fc?614|?! 


175300 




MOVS 3,3 


rYES, ASSEMBLE THE 


(^6141 


024170 




LDA l,C6 


rUNIT * FROM SW5-6 


06142 


137620 




ANOZR 1,3 




06143 


021513 




LDA w,TRCL»3 




06144 


040401 




STA P,,*l 


?PICK A RECAL 


06146 


006234 




RECL3 


IRECALIBRATE il 


06146 


004524 




JSR ,ULY 


IDELAY 1 SEC 


06147 


074477 


CNSi: 


READS 3 


tlf SW4»1 DELAY 


PI616P 


P2PIPI72 




LDA (^,KB4 


» 1 SEC, 


H6l!5l 


1174t^4 




AND 0,3,SZR 




06152 


i?»04520 




JSR ,DLY 




api-ss 


0347P53 




LPA 3,0SWT 


JFORCEO 2 SEC DELAY 7? 


06154 


175005 




MOV 3,3,SNR 




06155 


M(!»P)4M3 




JMP ,+3 


INO 


06156 


004514 




JSR ,DLY 


lYES, I SEC 


06157 


004513 




JSR .DLY 


; 1 SEC 


fe>6l60 


V974477 




PeADS 3 




06161 


000744 




JMP CYCl 





* mne .main 



i(»Sl62 W54667 


.EHl! 


STA 3,,RTRN 


t»6l«3 17652PI 




SUBZL 3,3 


t^61«4 frtK04ia3 




JMP ,EH2 


P(6l«5 054664 


.EHAUTI 


STA 3,.RTRN 


(^61«b 1764(()1?» 




SliR 3,3 


«fil67 t'f546ft7 


.EH2t 


STA 3,0SWT 


Cl617tl R34657 




LDA 3,ESWIT 


(16171 J750M4 




MOV 3,3, 8ZR 


C?6172 HPI0423 




JMP ERET 


PI6173 034656 


ERRll 


LPA 3,,HTRM 
JERRDR, CC33»PC 


(46174 1/IP«443I7) 




JSP AUTOER 


06175 054652 




STA 3,ESWIT 


(^6176 ei74477 




READS 3 


06177 177112 




ADDL« 3,3,SZC 


C16200 1^00415 




JMP ERET 


06201 040653 




STA 0,SAV0 


^^6202 1^44651 




STA 1,SAV1 


06203 006247 




PCRLF 


06204 006250 




MtSSAGE 


06205 006222 




HEADER 


(^620b 020643 




LDA 0,.RTRN 


06207 040640 




STA 0,f::SWIT 


06210 126000 




ADC 1,1 


06211 107000 




ADD 0,1 


06212 004522 




JSR POCT 


06213 020641 




LDA 0,SAV0 


06214 024637 




LDA l,SAVl 


06215 k?10633 


ERETJ 


ISZ ERRCT 


06216 002633 




JMP •,RTRN 


06217 00263? 




JMP P.RTRN 


06220 006415 


ICHAR: 


CHAR, 


06221 006337 


IPDEC: 


PDEC 




HEADEHt 


.TVTE 1 


06222 141520 


PC 


I 


06223 000011 






06224 024046 


AUTOEKI 


LDA I, EGGS 


0622b 125004 




MOV 1,1, SZR 


06226 000405 




JMP ,+5 


06227 171000 




MOV 3,2 


06230 034621 




LDA 3,,RTRM 


06231 063077 




HALT 


06232 001000 




JMP 0,2 


06233 060277 




INTDS 


06234 034052 




LDA 3,EGGS*4 


06235 001400 




JMP 0,3 



lERR WITH FORCED 1 SEC DELAY 



fERROR SUBROUTINE 
»ERRQR WITH NO DELAY 
JDELAY SWITCH 



FORCED 



»OPERATOR,SET SWiTCHSi 



fLOOK AT SWITCH I 



»PRINT CARRIAGE 
»AMD HEADER 



IPC np ERROR 



A «087 .MAIN 

rACl REM ACei(AC0,ACl)/AC2 

06236 10240W DIVIO! SUB 0,0 

06237 054431 DIVDni STA 3,MSAV 

06240 142432 SUBZ# 2,0|SZC 

06241 000413 JHP DEXT 

06242 054426 niVDI ST* 3,M8AV FDIVIDE 

06243 034426 LDA 3,M20 

06244 125120 MOVZL 1»1 

06245 101100 OLOOPI MOVL 0,0 

06246 142412 SUB« 2,0,SZC 

06247 142400 SUB 2|0 

06250 125100 MOVL 1,1 

06251 175404 INC 3,3,SZR 

aCQKQ nanfvn tub ni nne 

06253 176441 SUBO 3,3,SKP 

06254 176420 DEXTI SURZ 3,3 

06255 002413 JMP #MSAV 

r(AC0,ACn«ACl*AC24AC0 

06256 102460 MULTI SURC 0,0 IMULTIPLY 

06257 054411 ST* 3,MSAV 

06260 034411 LDA 3,M20 

06261 125203 MLOOPI MOVR 1,1, SNC 

06262 101201 MOVR 0,0, SKP 

06263 143220 ADDZR 2,0 

06264 175404 JNC 3,3,SZR 

06265 000774 JMP MLOOP 

06266 125260 MOVCR 1,1 

06267 002401 JMP HMSAV 

06270 000000 MSAVJ 

06271 177760 M20: -20 

06272 020172 .DLYI LDA 0,C12 IDELAY I SEC 

06273 040164 STA 0,ITRCNT n0.X100MS 

06274 020145 ,DLY1» LDA 0,TIME 

06275 040144 STA 0,TEMP 

06276 063700 SKPDZ I 

06277 063077 HALT I 

06300 060433 DIA 0,DSKP I 

06301 103411 ANDM 0,0, SKP | 100 MS 

06302 063077 HALT I PELAY LOOP 

06303 014144 DSZ TEMP 1 

06304 m977Z JMP ,-6 1 

06305 014164 DSZ ITRCNT 

06306 000766 JMP ,DLY1 

06307 001400 JMP 0,3 



A Oli^BS .MAIN 

ITTO NOKi INiTERRUPT PACKAGE 

r'MESS" PRINTS ASCII MESSAGES AS SPECIFIED BY ASSEMBLR 

»"CHAR" PRINTS ASCII CHARACTOR, C (03 R, C CO L MUST BE 
JWILL RETURN +2 IF C C0) R"0 » CORRECTS THE PARITY, 33 SIMULATE 

»"TYPE" PRINTS C(»)R, MUST HAVE PROPER PARITY, RETURN IS 
;T0 CALL+l. replace THIS ROUTINE WITH INTERRUPT TYPE IF DESIRED, 

f'CRLF" PRINTS A CARRIAGE RETURN 

|"POCT» PRINTS C(n IN OCTAL FOLLOWED BY A TAB 

f'PDEC" PRINTS C(ll IN DECIMAL , LEADING ZEROS SUPPRESSED, 
IFOLLOWED BY A TAB, 

fel631n t^5457PI MESSI STA 3,MESSR fPRINT A TEXT MESSAGE 

06311 V^7?iA77 READS 2 

06312 153102 ADDL 2,2,SZC JNO PRINT IF SWl«l 
616313 PIP»1401 JMP 1,3 

1^6314 Ml(?f564 ISZ MESSR 

fl6315 P!3140« LDA P,c^,3 ICC21 POINTS TO MESSAGE 

^16316 PI24125 LDA 1,C377 M 8 BIT MASK 

P16317 B21Pt«P» MES.i: LDA PI , PI , 2 ICf25«DATA WORD 

P)63?Pi 12511? MOVL« l,l,S2C 

H6321 123701 A^DS l,0,SKP 

08322 123401 AND 1,0, SKP FC(0)«nATA CHARACTOR RIGHT 

06323 151400 INC 2,9 HNC TO NEVT WORD 

06324 124000 COM 1,1 fFLIP MASK 

06325 v^04470 JSR CHAR. IPRINT 

06326 000771 JMP MfcS.l fANOTHEW 
e!6327 063511 SKPbZ TTO 

yi6330 \fl?f?i777 Jf^P ,-1 

06331 060211 Nine TTO 

06332 002546 JMP »MESSH ILAST 

06333 102401 ZOCTI SUB 0,0, SKP 

06334 020200 POCT: LDA 0,C60 

06335 030437 LDA 2,0CTAB IPRINT C(i) IN OCTAL 

06336 000403 JMP ,+3 

06337 030445 PDECI LDA 2,DECTB IPRINT Cfl) IN DECIMAL 

06340 102400 SUB 0,0 

06341 054463 STA 3,RADRET ;BOTH ENTRYS PRINT NUMBER 

06342 074477 READS 3 

06343 177102 ADDL 3,3,SZC INO PRINT IF SWl«l 

06344 002450 JMP «>RADRET 

06346 040446 STA 0,ZSUPP >THEN TAB TO NEXT POSITION 

06346 050401 STA 2,, ♦I 

06347 000000 DECOCT! M"LnA 2, TABLE" INSTRUCTION 

06350 010777 ISZ .-I 

06351 034443 LDA 3,RADRET fSETUP "TAB" AT END 

06352 020516 LDA 0,CHTAB 

06353 151005 MOV 2,2,SNR IIF TABLE ENTRYsB 

06354 000441 JMP CHAR. »EXIT WITH TAB 

06355 034436 LDA 3,ZSUPP IZEROS SUPPRESS STUF 

06356 102400 SUB 0,0 

06357 146512 DECOTl SUBL* 2,1,SZC 

06360 000405 JMP DECP 

06361 146400 SUB 2,1 IFORM THE DIGIT 

06362 034200 LDA 3,C60 

06363 101400 INC 0,0 

06364 000773 JMP OECOT 



A P)0S9 .MAIN 

06365 151235 DECPl MOVZRX 2,2,SNR 

06366 f^3420CI LDA 3,C60 

06367 1454424 8TA 3,ZSUPP K(0)tDISIT 
PI637PI 183PI0PI ADD 3,0 imakE ASCII 

06371 175004 MOV 3,3,S2R 

06372 004423 JSP CMAR, IPPINT 

^6373 000754 JmP DECOCT >GET NEXT DIGIT 

06374 (?30426 OCTAB: LDA 2, .tU, -DECOCT 

06375 100000 100KW0 

06376 01000M 10000 

06377 001000 i0p!0 
(AHAaaiiM»atat% tnr* 

06401 pie)(3K10 10 

06402 ?t0tfl0Kl J 
(r6403 000P!«0 9i 

064PI4 030436 DECT8I IDA 2, ,♦!♦. -DECOCT 

000012 ,ROX 10 

i/i64Pib M23420 10000 

K6406 PI01750 1000 

06407 (^00144 Ip^p) 

0641» 0C^0H12 10 

i?lfi411 PI000M1 I 

t?64l2 PI00000 

000011^ ,RDX 8 

M6413 0PI0000 ZSUPPI W 

(?6414 pipi00ei0 radret: 



A PIlZlQC^ .MAIN 

<Af^A^5 C^54454 THAR.: STA 3,CHRET IPPINT C(0) RIGHT 

l^fiAie 1PI1325 MOVZS 0,0, SNR fBETURN +2 IF NULL 

l/ifi4l7 ^^iAti\ JMP 1,3 

I^fi4?i? i?)404S? STA ?S,CHSAV 

1^,6421 176PIHPI ADC 3,3 ICOMPUTE THE PARITY 

l>ifi4?2 UZPiPiPl AOn PI, 3 

4*6423 l'S3404 AND 3,K,SZR 

P18424 MCI0775 JMP ,-3 

il642t5 17666PI SURCP 3,3 fCDMBIND PARITY WITH CHAR 

("6426 W2PI444 LDA C,CHSAV 

pi«427 i633cip< Anns 3,« 

MP43C1 M3444PI CHARt! LOA 3,CHTAB ?IS THIS A TAB 

6>«431 n641S SU«» «,3,SNR 

(16432 (^Ptyt4(fl7 JMP .♦7 lYES 

•/6433 t^Pi4446 JSR TYPE »N0 PRTNT IT 

PS6434 0PPI413 JMP CHAR2+1 JEXIT 

K6435 £a2Pl436 LDA ^,CH0R7 ISIMULATE A TAB 

tfi436 C34432 LDA 3,CHTA8 »VIA 1 TO 9 SPACES 

&'6437 162426 SU«Z 3,»,SEZ 

C^644C^ 0P1P)777 JMP ,-1 

ti644l ItftlPiC'S MnV (?),«, SNR 

t*6442 MMPI404 JMP CHAR2 

p!6443 1/^20431 LDA Pi,CH24l?l 

P6444 C^M443S JSR TyPt 

eifi445 MPK77t" JMP ,'\V\ 

1^6446 \^AV,425 CHAR?; STA WfCHORZ 

H6447 tfl63Sn SKPSZ TTO 

&ifi45M t'^WM777 JMP ,-1 

1^6451 wftM?n l^inC TTO 

H64S2 ^'02417 JMP iCHSET 



A 0091 .MAIN 



0fi453 060477 CRLFI READS 51 

(?I64B4 1PI3102 ADDL 0,0|SZC 

06455 0014001 JHP 0,3 

06456 «54417 STA 3,CRLFR 
064P7 020417 LDA 0,C215 

06460 004735 JSR CHAR, 

06461 020416 LDA 0,C212 

06462 004733 JSR CHAR, 

06463 020125 LDA 0,C377 
P16464 004731 JSR CHAR, 
06465 102400 SUB 0,0 
{16466 040405 STA 0,CHOR2 
06467 002406 JMP #CRLFR 

06470 000011 CHTABI U 

06471 000000 CHRETI 

06472 000000 CHSAVt 

06473 000000 CHQRZl 

06474 000240 CH240I 240 

06475 000000 CRLFRl 

06476 000215 C215I 2l5 

06477 000912 C212I 212 



>N0 PRINT IF SWl«l 

ISAVE RETURN 

IPRINT CARRIAGE AND LF 

?PRINT RUB 



ICLEAR H0R7 P0SI8TI0N 
lEXIT 



065P)0 000000 MESSRI 

06501 054406 TVPEI 

06502 P<10771 

06503 063511 

06504 000777 

06505 061111 

06506 H02401 

06507 000000 typret: 





STA 3, TYPRET 
ISZ CHORZ 
SKPBZ TTO 
JMP .-1 
OOAS 0,TTO 
JMP #TYPRET 



ITYPE THE CC0)R IF 



A W/92 .MAIN 



MSPl J 



VifiSlB 


PI54724 


t^fiSll 


14252P> 


C.(Sbl2 


(^300111 


E^«bl3 


14324PI 


4^fibl4 


151317 


P651S 


14ie(4n 


lAf>^\(i 


1 5 1 1 m 


(rlfiSl? 


151324 


BfiSPCl 


P42311 


t^fiS?! 


1425fi7 


?fi5?2 


i^p(fe>piBe< 


/.65?3 


i3'/i4n 


7«ft24 


14324W 


ffibPb 


151317 


i/i652h 


13?I64«« 


cfis?; 


l?P<P!b« 


TifibSP 


1^52523 


i>"5531 


143322 


t^fi532 


141501 


?»fi533 


12fe53(?5 


5i^S34 


144504 


i/i653b 


t*4b523 


51^53^ 


1-15(1 240 


(^f5537 


1415(^1 


^'fiS^J/ 


^PPl 13 


(/• « 5 4 1 


I3ltill 


i^fiS42 


14394(?» 


&^fi543 


151317 


C^6544 


131240 


P»fi545 


l2e!i?i6P" 


ti654B 


052523 


[^6547 


143322 


(^655P) 


141501 


^6551 


I2et3t»5 


(^6552 


I445i;'4 


C^fi553 


1^45523 


06554 


(?'5P)24? 


t^fi555 


UlSt?! 


0fib56 


3(^1^113 


tifi557 


i^2664P» 


t^SSfiM 


W26477 


0fibfil 


00HP051 


«6562 


(154724 


06563 


I4252t" 


06564 


pi5264P 


^^•6565 


144516 


V16566 


12^?324 


{•6567 


W52516 



»TYPF 
.TXTE 



l/l FOR 
TYPR 



CARTRinCE 

CI FOR CARTRIDGEl 



MSG2 



t 

,TXTE I 



FDR 
FOR 



Iv? 



SURFACE 
SLIRFACfc 



DISK 
DISK 



PACK 
PACKl 



MSfiSt 



t 2 FOR ?ifl SURFACE DISK PACK 

.TXTE i 2 FOR 2fc! SURFACE DISK PACKl 



MSG4I 



MSG5: 



J -?- 

.IVTE 1 -?-i 



JTYPE UNIT NUMBERS 
,T^TF ITYPF UMIT Ml 



CB-3) 
IMBERS 



TO 
(0 



TEST 
•3) TO 



TESTl 



PI093 .MAIM 
1^.6570 «41i If? 



PI6571 


151305 




t^S572 


120123 




06573 


030050 




PI6574 


031455 




06575 


120251 




{"6576 


147724 




06577 


152240 




066550 


051705 




?<66(Sl 


000324 


fPASS 




MSG6t 


•TXTE IPASSi 


I»667i2 


040520 




f^i6603 


051523 




06604 


00000ffl 




C^66P!5 


000000 PRGENDI 







(?|0671^0 


.LOC 6700 

.TXTE IDKP DIAG 11 


9i(i77i9 


045504 




l?t67Pil 


120120 




416702 


144504 




9)67C»3 


043501 




tdf>7f^A 


130640 




(?>67l?t6 


000000 




067PI6 


000002 


000002 


067P!7 


000222 


BEGIN 


i?67l0 


000002 


000002 


»671l 


000000 


000000 


06712 


000020 


000020 


H6713 


000000 


000000 


06714 


000000 


000000 


06715 


100033 


100033 



.END 



